;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
  %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
  %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
  %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
  %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
  %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
  %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
  %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
  %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
  %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
  %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
  %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
  %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
  %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
  %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
  %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
  %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
  %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
  %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
  %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
  %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
  %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
  %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
  %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
  %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
  %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
  %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
  %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
  %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
  %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
  %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
  %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
  %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
  %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
  %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
  %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
  %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
  %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
  %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
  %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
  %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
  %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
  %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP
  %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL
  %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3
  %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0
  %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4
  %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR
  %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB
  %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX
  %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB
  %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF
  %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV
  %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS
  %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT
  %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0
  %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5
  %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA
  %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2
  %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6
  %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ
  %DLASWLQ))

(CFFI:DEFCFUN ("dgbbrd_" %%DGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5837 ':INT32) (N-REF5838 ':INT32)
                              (NCC-REF5839 ':INT32) (KL-REF5840 ':INT32)
                              (KU-REF5841 ':INT32) (LDAB-REF5843 ':INT32)
                              (LDQ-REF5847 ':INT32) (LDPT-REF5849 ':INT32)
                              (LDC-REF5851 ':INT32) (INFO-REF5853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5837 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5838 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5839 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5840 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5841 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5843 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5847 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF5849 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5851 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5853 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5842 AB) (D-REF5844 D)
                                            (E-REF5845 E) (Q-REF5846 Q)
                                            (PT-REF5848 PT) (C-REF5850 C)
                                            (WORK-REF5852 WORK))
      (%%DGBBRD VECT M-REF5837 N-REF5838 NCC-REF5839 KL-REF5840 KU-REF5841
       AB-REF5842 LDAB-REF5843 D-REF5844 E-REF5845 Q-REF5846 LDQ-REF5847
       PT-REF5848 LDPT-REF5849 C-REF5850 LDC-REF5851 WORK-REF5852
       INFO-REF5853))))

(CFFI:DEFCFUN ("dgbcon_" %%DGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5855 ':INT32) (KL-REF5856 ':INT32)
                              (KU-REF5857 ':INT32) (LDAB-REF5859 ':INT32)
                              (ANORM-REF5861 ':DOUBLE) (RCOND-REF5862 ':DOUBLE)
                              (INFO-REF5865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5856 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5857 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5859 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5861 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5862 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5858 AB) (IPIV-REF5860 IPIV)
                                            (WORK-REF5863 WORK)
                                            (IWORK-REF5864 IWORK))
      (%%DGBCON NORM N-REF5855 KL-REF5856 KU-REF5857 AB-REF5858 LDAB-REF5859
       IPIV-REF5860 ANORM-REF5861 RCOND-REF5862 WORK-REF5863 IWORK-REF5864
       INFO-REF5865))))

(CFFI:DEFCFUN ("dgbequ_" %%DGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5866 ':INT32) (N-REF5867 ':INT32)
                              (KL-REF5868 ':INT32) (KU-REF5869 ':INT32)
                              (LDAB-REF5871 ':INT32) (ROWCND-REF5874 ':DOUBLE)
                              (COLCND-REF5875 ':DOUBLE) (AMAX-REF5876 ':DOUBLE)
                              (INFO-REF5877 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5866 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5868 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5869 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5871 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5874 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5875 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5876 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5877 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5870 AB) (R-REF5872 R)
                                            (C-REF5873 C))
      (%%DGBEQU M-REF5866 N-REF5867 KL-REF5868 KU-REF5869 AB-REF5870
       LDAB-REF5871 R-REF5872 C-REF5873 ROWCND-REF5874 COLCND-REF5875
       AMAX-REF5876 INFO-REF5877))))

(CFFI:DEFCFUN ("dgbequb_" %%DGBEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5878 ':INT32) (N-REF5879 ':INT32)
                              (KL-REF5880 ':INT32) (KU-REF5881 ':INT32)
                              (LDAB-REF5883 ':INT32) (ROWCND-REF5886 ':DOUBLE)
                              (COLCND-REF5887 ':DOUBLE) (AMAX-REF5888 ':DOUBLE)
                              (INFO-REF5889 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5878 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5880 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5881 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5883 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5886 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5887 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5888 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5889 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5882 AB) (R-REF5884 R)
                                            (C-REF5885 C))
      (%%DGBEQUB M-REF5878 N-REF5879 KL-REF5880 KU-REF5881 AB-REF5882
       LDAB-REF5883 R-REF5884 C-REF5885 ROWCND-REF5886 COLCND-REF5887
       AMAX-REF5888 INFO-REF5889))))

(CFFI:DEFCFUN ("dgbrfs_" %%DGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5891 ':INT32) (KL-REF5892 ':INT32)
                              (KU-REF5893 ':INT32) (NRHS-REF5894 ':INT32)
                              (LDAB-REF5896 ':INT32) (LDAFB-REF5898 ':INT32)
                              (LDB-REF5901 ':INT32) (LDX-REF5903 ':INT32)
                              (INFO-REF5908 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5891 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5892 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5893 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5894 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5896 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5898 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5901 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5903 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5908 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5895 AB) (AFB-REF5897 AFB)
                                            (IPIV-REF5899 IPIV) (B-REF5900 B)
                                            (X-REF5902 X) (FERR-REF5904 FERR)
                                            (BERR-REF5905 BERR)
                                            (WORK-REF5906 WORK)
                                            (IWORK-REF5907 IWORK))
      (%%DGBRFS TRANS N-REF5891 KL-REF5892 KU-REF5893 NRHS-REF5894 AB-REF5895
       LDAB-REF5896 AFB-REF5897 LDAFB-REF5898 IPIV-REF5899 B-REF5900
       LDB-REF5901 X-REF5902 LDX-REF5903 FERR-REF5904 BERR-REF5905 WORK-REF5906
       IWORK-REF5907 INFO-REF5908))))

(CFFI:DEFCFUN ("dgbrfsx_" %%DGBRFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5911 ':INT32) (KL-REF5912 ':INT32)
                              (KU-REF5913 ':INT32) (NRHS-REF5914 ':INT32)
                              (LDAB-REF5916 ':INT32) (LDAFB-REF5918 ':INT32)
                              (LDB-REF5923 ':INT32) (LDX-REF5925 ':INT32)
                              (RCOND-REF5926 ':DOUBLE)
                              (N_ERR_BNDS-REF5928 ':INT32)
                              (NPARAMS-REF5931 ':INT32) (INFO-REF5935 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5911 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5912 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5913 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5914 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5916 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5918 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5923 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5925 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5926 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5928 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5931 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5935 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5915 AB) (AFB-REF5917 AFB)
                                            (IPIV-REF5919 IPIV) (R-REF5920 R)
                                            (C-REF5921 C) (B-REF5922 B)
                                            (X-REF5924 X) (BERR-REF5927 BERR)
                                            (ERR_BNDS_NORM-REF5929
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5930
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF5932 PARAMS)
                                            (WORK-REF5933 WORK)
                                            (IWORK-REF5934 IWORK))
      (%%DGBRFSX TRANS EQUED N-REF5911 KL-REF5912 KU-REF5913 NRHS-REF5914
       AB-REF5915 LDAB-REF5916 AFB-REF5917 LDAFB-REF5918 IPIV-REF5919 R-REF5920
       C-REF5921 B-REF5922 LDB-REF5923 X-REF5924 LDX-REF5925 RCOND-REF5926
       BERR-REF5927 N_ERR_BNDS-REF5928 ERR_BNDS_NORM-REF5929
       ERR_BNDS_COMP-REF5930 NPARAMS-REF5931 PARAMS-REF5932 WORK-REF5933
       IWORK-REF5934 INFO-REF5935))))

(CFFI:DEFCFUN ("dgbsv_" %%DGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5936 ':INT32) (KL-REF5937 ':INT32)
                              (KU-REF5938 ':INT32) (NRHS-REF5939 ':INT32)
                              (LDAB-REF5941 ':INT32) (LDB-REF5944 ':INT32)
                              (INFO-REF5945 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5937 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5938 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5939 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5941 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5944 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5945 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5940 AB) (IPIV-REF5942 IPIV)
                                            (B-REF5943 B))
      (%%DGBSV N-REF5936 KL-REF5937 KU-REF5938 NRHS-REF5939 AB-REF5940
       LDAB-REF5941 IPIV-REF5942 B-REF5943 LDB-REF5944 INFO-REF5945))))

(CFFI:DEFCFUN ("dgbsvx_" %%DGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5948 ':INT32) (KL-REF5949 ':INT32)
                              (KU-REF5950 ':INT32) (NRHS-REF5951 ':INT32)
                              (LDAB-REF5953 ':INT32) (LDAFB-REF5955 ':INT32)
                              (LDB-REF5961 ':INT32) (LDX-REF5963 ':INT32)
                              (RCOND-REF5964 ':DOUBLE) (INFO-REF5969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5948 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5949 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5950 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5951 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5953 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5955 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5961 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5963 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5964 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5952 AB) (AFB-REF5954 AFB)
                                            (IPIV-REF5956 IPIV) (R-REF5958 R)
                                            (C-REF5959 C) (B-REF5960 B)
                                            (X-REF5962 X) (FERR-REF5965 FERR)
                                            (BERR-REF5966 BERR)
                                            (WORK-REF5967 WORK)
                                            (IWORK-REF5968 IWORK))
      (%%DGBSVX FACT TRANS N-REF5948 KL-REF5949 KU-REF5950 NRHS-REF5951
       AB-REF5952 LDAB-REF5953 AFB-REF5954 LDAFB-REF5955 IPIV-REF5956 EQUED
       R-REF5958 C-REF5959 B-REF5960 LDB-REF5961 X-REF5962 LDX-REF5963
       RCOND-REF5964 FERR-REF5965 BERR-REF5966 WORK-REF5967 IWORK-REF5968
       INFO-REF5969))))

(CFFI:DEFCFUN ("dgbsvxx_" %%DGBSVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5972 ':INT32) (KL-REF5973 ':INT32)
                              (KU-REF5974 ':INT32) (NRHS-REF5975 ':INT32)
                              (LDAB-REF5977 ':INT32) (LDAFB-REF5979 ':INT32)
                              (LDB-REF5985 ':INT32) (LDX-REF5987 ':INT32)
                              (RCOND-REF5988 ':DOUBLE)
                              (RPVGRW-REF5989 ':DOUBLE)
                              (N_ERR_BNDS-REF5991 ':INT32)
                              (NPARAMS-REF5994 ':INT32) (INFO-REF5998 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5972 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5973 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5974 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5975 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5977 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5979 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5985 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5987 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5988 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF5989 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5991 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5994 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5998 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5976 AB) (AFB-REF5978 AFB)
                                            (IPIV-REF5980 IPIV) (R-REF5982 R)
                                            (C-REF5983 C) (B-REF5984 B)
                                            (X-REF5986 X) (BERR-REF5990 BERR)
                                            (ERR_BNDS_NORM-REF5992
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5993
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF5995 PARAMS)
                                            (WORK-REF5996 WORK)
                                            (IWORK-REF5997 IWORK))
      (%%DGBSVXX FACT TRANS N-REF5972 KL-REF5973 KU-REF5974 NRHS-REF5975
       AB-REF5976 LDAB-REF5977 AFB-REF5978 LDAFB-REF5979 IPIV-REF5980 EQUED
       R-REF5982 C-REF5983 B-REF5984 LDB-REF5985 X-REF5986 LDX-REF5987
       RCOND-REF5988 RPVGRW-REF5989 BERR-REF5990 N_ERR_BNDS-REF5991
       ERR_BNDS_NORM-REF5992 ERR_BNDS_COMP-REF5993 NPARAMS-REF5994
       PARAMS-REF5995 WORK-REF5996 IWORK-REF5997 INFO-REF5998))))

(CFFI:DEFCFUN ("dgbtf2_" %%DGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5999 ':INT32) (N-REF6000 ':INT32)
                              (KL-REF6001 ':INT32) (KU-REF6002 ':INT32)
                              (LDAB-REF6004 ':INT32) (INFO-REF6006 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5999 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6000 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6001 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6002 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6004 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6006 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6003 AB) (IPIV-REF6005 IPIV))
      (%%DGBTF2 M-REF5999 N-REF6000 KL-REF6001 KU-REF6002 AB-REF6003
       LDAB-REF6004 IPIV-REF6005 INFO-REF6006))))

(CFFI:DEFCFUN ("dgbtrf_" %%DGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6007 ':INT32) (N-REF6008 ':INT32)
                              (KL-REF6009 ':INT32) (KU-REF6010 ':INT32)
                              (LDAB-REF6012 ':INT32) (INFO-REF6014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6007 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6008 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6009 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6010 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6012 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6014 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6011 AB) (IPIV-REF6013 IPIV))
      (%%DGBTRF M-REF6007 N-REF6008 KL-REF6009 KU-REF6010 AB-REF6011
       LDAB-REF6012 IPIV-REF6013 INFO-REF6014))))

(CFFI:DEFCFUN ("dgbtrs_" %%DGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6016 ':INT32) (KL-REF6017 ':INT32)
                              (KU-REF6018 ':INT32) (NRHS-REF6019 ':INT32)
                              (LDAB-REF6021 ':INT32) (LDB-REF6024 ':INT32)
                              (INFO-REF6025 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6017 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6018 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6019 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6021 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6024 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6025 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6020 AB) (IPIV-REF6022 IPIV)
                                            (B-REF6023 B))
      (%%DGBTRS TRANS N-REF6016 KL-REF6017 KU-REF6018 NRHS-REF6019 AB-REF6020
       LDAB-REF6021 IPIV-REF6022 B-REF6023 LDB-REF6024 INFO-REF6025))))

(CFFI:DEFCFUN ("dgebak_" %%DGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6028 ':INT32) (ILO-REF6029 ':INT32)
                              (IHI-REF6030 ':INT32) (M-REF6032 ':INT32)
                              (LDV-REF6034 ':INT32) (INFO-REF6035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6029 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6030 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6032 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6034 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6035 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6031 SCALE) (V-REF6033 V))
      (%%DGEBAK JOB SIDE N-REF6028 ILO-REF6029 IHI-REF6030 SCALE-REF6031
       M-REF6032 V-REF6033 LDV-REF6034 INFO-REF6035))))

(CFFI:DEFCFUN ("dgebal_" %%DGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6037 ':INT32) (LDA-REF6039 ':INT32)
                              (ILO-REF6040 ':INT32) (IHI-REF6041 ':INT32)
                              (INFO-REF6043 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6037 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6039 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6040 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6041 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6043 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6038 A) (SCALE-REF6042 SCALE))
      (%%DGEBAL JOB N-REF6037 A-REF6038 LDA-REF6039 ILO-REF6040 IHI-REF6041
       SCALE-REF6042 INFO-REF6043))))

(CFFI:DEFCFUN ("dgebd2_" %%DGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6044 ':INT32) (N-REF6045 ':INT32)
                              (LDA-REF6047 ':INT32) (INFO-REF6053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6044 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6047 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6053 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6046 A) (D-REF6048 D)
                                            (E-REF6049 E) (TAUQ-REF6050 TAUQ)
                                            (TAUP-REF6051 TAUP)
                                            (WORK-REF6052 WORK))
      (%%DGEBD2 M-REF6044 N-REF6045 A-REF6046 LDA-REF6047 D-REF6048 E-REF6049
       TAUQ-REF6050 TAUP-REF6051 WORK-REF6052 INFO-REF6053))))

(CFFI:DEFCFUN ("dgebrd_" %%DGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6054 ':INT32) (N-REF6055 ':INT32)
                              (LDA-REF6057 ':INT32) (LWORK-REF6063 ':INT32)
                              (INFO-REF6064 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6054 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6055 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6057 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6063 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6064 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6056 A) (D-REF6058 D)
                                            (E-REF6059 E) (TAUQ-REF6060 TAUQ)
                                            (TAUP-REF6061 TAUP)
                                            (WORK-REF6062 WORK))
      (%%DGEBRD M-REF6054 N-REF6055 A-REF6056 LDA-REF6057 D-REF6058 E-REF6059
       TAUQ-REF6060 TAUP-REF6061 WORK-REF6062 LWORK-REF6063 INFO-REF6064))))

(CFFI:DEFCFUN ("dgecon_" %%DGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6066 ':INT32) (LDA-REF6068 ':INT32)
                              (ANORM-REF6069 ':DOUBLE) (RCOND-REF6070 ':DOUBLE)
                              (INFO-REF6073 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6066 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6068 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6069 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6070 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6073 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6067 A) (WORK-REF6071 WORK)
                                            (IWORK-REF6072 IWORK))
      (%%DGECON NORM N-REF6066 A-REF6067 LDA-REF6068 ANORM-REF6069
       RCOND-REF6070 WORK-REF6071 IWORK-REF6072 INFO-REF6073))))

(CFFI:DEFCFUN ("dgeequ_" %%DGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6074 ':INT32) (N-REF6075 ':INT32)
                              (LDA-REF6077 ':INT32) (ROWCND-REF6080 ':DOUBLE)
                              (COLCND-REF6081 ':DOUBLE) (AMAX-REF6082 ':DOUBLE)
                              (INFO-REF6083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6074 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6077 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6080 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6081 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6082 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6076 A) (R-REF6078 R)
                                            (C-REF6079 C))
      (%%DGEEQU M-REF6074 N-REF6075 A-REF6076 LDA-REF6077 R-REF6078 C-REF6079
       ROWCND-REF6080 COLCND-REF6081 AMAX-REF6082 INFO-REF6083))))

(CFFI:DEFCFUN ("dgeequb_" %%DGEEQUB :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6084 ':INT32) (N-REF6085 ':INT32)
                              (LDA-REF6087 ':INT32) (ROWCND-REF6090 ':DOUBLE)
                              (COLCND-REF6091 ':DOUBLE) (AMAX-REF6092 ':DOUBLE)
                              (INFO-REF6093 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6084 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6090 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6091 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6092 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6093 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6086 A) (R-REF6088 R)
                                            (C-REF6089 C))
      (%%DGEEQUB M-REF6084 N-REF6085 A-REF6086 LDA-REF6087 R-REF6088 C-REF6089
       ROWCND-REF6090 COLCND-REF6091 AMAX-REF6092 INFO-REF6093))))

(CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEES
                   (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6096 ':INT32) (N-REF6097 ':INT32)
                              (LDA-REF6099 ':INT32) (SDIM-REF6100 ':INT32)
                              (LDVS-REF6104 ':INT32) (LWORK-REF6106 ':INT32)
                              (INFO-REF6108 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6096 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6099 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6100 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6104 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6106 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6108 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6098 A) (WR-REF6101 WR)
                                            (WI-REF6102 WI) (VS-REF6103 VS)
                                            (WORK-REF6105 WORK)
                                            (BWORK-REF6107 BWORK))
      (%%DGEES JOBVS SORT SELECT-REF6096 N-REF6097 A-REF6098 LDA-REF6099
       SDIM-REF6100 WR-REF6101 WI-REF6102 VS-REF6103 LDVS-REF6104 WORK-REF6105
       LWORK-REF6106 BWORK-REF6107 INFO-REF6108))))

(CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE
                    RCONDV WORK LWORK IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6111 ':INT32) (N-REF6113 ':INT32)
                              (LDA-REF6115 ':INT32) (SDIM-REF6116 ':INT32)
                              (LDVS-REF6120 ':INT32) (RCONDE-REF6121 ':DOUBLE)
                              (RCONDV-REF6122 ':DOUBLE) (LWORK-REF6124 ':INT32)
                              (LIWORK-REF6126 ':INT32) (INFO-REF6128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6111 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6113 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6115 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6116 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6120 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6121 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6122 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6124 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6126 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6128 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6114 A) (WR-REF6117 WR)
                                            (WI-REF6118 WI) (VS-REF6119 VS)
                                            (WORK-REF6123 WORK)
                                            (IWORK-REF6125 IWORK)
                                            (BWORK-REF6127 BWORK))
      (%%DGEESX JOBVS SORT SELECT-REF6111 SENSE N-REF6113 A-REF6114 LDA-REF6115
       SDIM-REF6116 WR-REF6117 WI-REF6118 VS-REF6119 LDVS-REF6120
       RCONDE-REF6121 RCONDV-REF6122 WORK-REF6123 LWORK-REF6124 IWORK-REF6125
       LIWORK-REF6126 BWORK-REF6127 INFO-REF6128))))

(CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEV
                   (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6131 ':INT32) (LDA-REF6133 ':INT32)
                              (LDVL-REF6137 ':INT32) (LDVR-REF6139 ':INT32)
                              (LWORK-REF6141 ':INT32) (INFO-REF6142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6137 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6139 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6141 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6132 A) (WR-REF6134 WR)
                                            (WI-REF6135 WI) (VL-REF6136 VL)
                                            (VR-REF6138 VR) (WORK-REF6140 WORK))
      (%%DGEEV JOBVL JOBVR N-REF6131 A-REF6132 LDA-REF6133 WR-REF6134
       WI-REF6135 VL-REF6136 LDVL-REF6137 VR-REF6138 LDVR-REF6139 WORK-REF6140
       LWORK-REF6141 INFO-REF6142))))

(CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO
                    IHI SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6147 ':INT32) (LDA-REF6149 ':INT32)
                              (LDVL-REF6153 ':INT32) (LDVR-REF6155 ':INT32)
                              (ILO-REF6156 ':INT32) (IHI-REF6157 ':INT32)
                              (ABNRM-REF6159 ':DOUBLE) (LWORK-REF6163 ':INT32)
                              (INFO-REF6165 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6147 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6149 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6153 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6155 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6156 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6157 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6159 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6163 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6165 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6148 A) (WR-REF6150 WR)
                                            (WI-REF6151 WI) (VL-REF6152 VL)
                                            (VR-REF6154 VR)
                                            (SCALE-REF6158 SCALE)
                                            (RCONDE-REF6160 RCONDE)
                                            (RCONDV-REF6161 RCONDV)
                                            (WORK-REF6162 WORK)
                                            (IWORK-REF6164 IWORK))
      (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF6147 A-REF6148 LDA-REF6149
       WR-REF6150 WI-REF6151 VL-REF6152 LDVL-REF6153 VR-REF6154 LDVR-REF6155
       ILO-REF6156 IHI-REF6157 SCALE-REF6158 ABNRM-REF6159 RCONDE-REF6160
       RCONDV-REF6161 WORK-REF6162 LWORK-REF6163 IWORK-REF6164 INFO-REF6165))))

(CFFI:DEFCFUN ("dgehd2_" %%DGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6166 ':INT32) (ILO-REF6167 ':INT32)
                              (IHI-REF6168 ':INT32) (LDA-REF6170 ':INT32)
                              (INFO-REF6173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6167 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6168 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6170 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6169 A) (TAU-REF6171 TAU)
                                            (WORK-REF6172 WORK))
      (%%DGEHD2 N-REF6166 ILO-REF6167 IHI-REF6168 A-REF6169 LDA-REF6170
       TAU-REF6171 WORK-REF6172 INFO-REF6173))))

(CFFI:DEFCFUN ("dgehrd_" %%DGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6174 ':INT32) (ILO-REF6175 ':INT32)
                              (IHI-REF6176 ':INT32) (LDA-REF6178 ':INT32)
                              (LWORK-REF6181 ':INT32) (INFO-REF6182 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6174 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6175 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6176 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6178 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6181 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6182 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6177 A) (TAU-REF6179 TAU)
                                            (WORK-REF6180 WORK))
      (%%DGEHRD N-REF6174 ILO-REF6175 IHI-REF6176 A-REF6177 LDA-REF6178
       TAU-REF6179 WORK-REF6180 LWORK-REF6181 INFO-REF6182))))

(CFFI:DEFCFUN ("dgejsv_" %%DGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6189 ':INT32) (N-REF6190 ':INT32)
                              (LDA-REF6192 ':INT32) (LDU-REF6195 ':INT32)
                              (LDV-REF6197 ':INT32) (LWORK-REF6199 ':INT32)
                              (INFO-REF6201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6189 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6192 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6195 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6197 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6199 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6191 A) (SVA-REF6193 SVA)
                                            (U-REF6194 U) (V-REF6196 V)
                                            (WORK-REF6198 WORK)
                                            (IWORK-REF6200 IWORK))
      (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF6189 N-REF6190 A-REF6191
       LDA-REF6192 SVA-REF6193 U-REF6194 LDU-REF6195 V-REF6196 LDV-REF6197
       WORK-REF6198 LWORK-REF6199 IWORK-REF6200 INFO-REF6201))))

(CFFI:DEFCFUN ("dgelq_" %%DGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6202 ':INT32) (N-REF6203 ':INT32)
                              (LDA-REF6205 ':INT32) (TSIZE-REF6207 ':INT32)
                              (LWORK-REF6209 ':INT32) (INFO-REF6210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6202 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6203 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6205 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6207 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6209 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6204 A) (T-REF6206 T)
                                            (WORK-REF6208 WORK))
      (%%DGELQ M-REF6202 N-REF6203 A-REF6204 LDA-REF6205 T-REF6206
       TSIZE-REF6207 WORK-REF6208 LWORK-REF6209 INFO-REF6210))))

(CFFI:DEFCFUN ("dgelq2_" %%DGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6211 ':INT32) (N-REF6212 ':INT32)
                              (LDA-REF6214 ':INT32) (INFO-REF6217 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6211 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6212 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6214 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6217 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6213 A) (TAU-REF6215 TAU)
                                            (WORK-REF6216 WORK))
      (%%DGELQ2 M-REF6211 N-REF6212 A-REF6213 LDA-REF6214 TAU-REF6215
       WORK-REF6216 INFO-REF6217))))

(CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6218 ':INT32) (N-REF6219 ':INT32)
                              (LDA-REF6221 ':INT32) (LWORK-REF6224 ':INT32)
                              (INFO-REF6225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6218 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6219 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6224 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6220 A) (TAU-REF6222 TAU)
                                            (WORK-REF6223 WORK))
      (%%DGELQF M-REF6218 N-REF6219 A-REF6220 LDA-REF6221 TAU-REF6222
       WORK-REF6223 LWORK-REF6224 INFO-REF6225))))

(CFFI:DEFCFUN ("dgelqt_" %%DGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6226 ':INT32) (N-REF6227 ':INT32)
                              (MB-REF6228 ':INT32) (LDA-REF6230 ':INT32)
                              (LDT-REF6232 ':INT32) (INFO-REF6234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6226 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6227 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6228 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6230 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6232 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6229 A) (T-REF6231 T)
                                            (WORK-REF6233 WORK))
      (%%DGELQT M-REF6226 N-REF6227 MB-REF6228 A-REF6229 LDA-REF6230 T-REF6231
       LDT-REF6232 WORK-REF6233 INFO-REF6234))))

(CFFI:DEFCFUN ("dgelqt3_" %%DGELQT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6235 ':INT32) (N-REF6236 ':INT32)
                              (LDA-REF6238 ':INT32) (LDT-REF6240 ':INT32)
                              (INFO-REF6241 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6235 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6236 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6238 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6240 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6241 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6237 A) (T-REF6239 T))
      (%%DGELQT3 M-REF6235 N-REF6236 A-REF6237 LDA-REF6238 T-REF6239
       LDT-REF6240 INFO-REF6241))))

(CFFI:DEFCFUN ("dgels_" %%DGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6243 ':INT32) (N-REF6244 ':INT32)
                              (NRHS-REF6245 ':INT32) (LDA-REF6247 ':INT32)
                              (LDB-REF6249 ':INT32) (LWORK-REF6251 ':INT32)
                              (INFO-REF6252 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6243 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6244 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6245 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6247 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6249 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6251 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6252 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6246 A) (B-REF6248 B)
                                            (WORK-REF6250 WORK))
      (%%DGELS TRANS M-REF6243 N-REF6244 NRHS-REF6245 A-REF6246 LDA-REF6247
       B-REF6248 LDB-REF6249 WORK-REF6250 LWORK-REF6251 INFO-REF6252))))

(CFFI:DEFCFUN ("dgelsd_" %%DGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6253 ':INT32) (N-REF6254 ':INT32)
                              (NRHS-REF6255 ':INT32) (LDA-REF6257 ':INT32)
                              (LDB-REF6259 ':INT32) (RCOND-REF6261 ':DOUBLE)
                              (RANK-REF6262 ':INT32) (LWORK-REF6264 ':INT32)
                              (INFO-REF6266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6253 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6254 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6255 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6257 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6259 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6261 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6262 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6264 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6256 A) (B-REF6258 B)
                                            (S-REF6260 S) (WORK-REF6263 WORK)
                                            (IWORK-REF6265 IWORK))
      (%%DGELSD M-REF6253 N-REF6254 NRHS-REF6255 A-REF6256 LDA-REF6257
       B-REF6258 LDB-REF6259 S-REF6260 RCOND-REF6261 RANK-REF6262 WORK-REF6263
       LWORK-REF6264 IWORK-REF6265 INFO-REF6266))))

(CFFI:DEFCFUN ("dgelss_" %%DGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSS (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6267 ':INT32) (N-REF6268 ':INT32)
                              (NRHS-REF6269 ':INT32) (LDA-REF6271 ':INT32)
                              (LDB-REF6273 ':INT32) (RCOND-REF6275 ':DOUBLE)
                              (RANK-REF6276 ':INT32) (LWORK-REF6278 ':INT32)
                              (INFO-REF6279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6267 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6269 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6271 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6273 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6275 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6276 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6278 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6279 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6270 A) (B-REF6272 B)
                                            (S-REF6274 S) (WORK-REF6277 WORK))
      (%%DGELSS M-REF6267 N-REF6268 NRHS-REF6269 A-REF6270 LDA-REF6271
       B-REF6272 LDB-REF6273 S-REF6274 RCOND-REF6275 RANK-REF6276 WORK-REF6277
       LWORK-REF6278 INFO-REF6279))))

(CFFI:DEFCFUN ("dgelsy_" %%DGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6280 ':INT32) (N-REF6281 ':INT32)
                              (NRHS-REF6282 ':INT32) (LDA-REF6284 ':INT32)
                              (LDB-REF6286 ':INT32) (RCOND-REF6288 ':DOUBLE)
                              (RANK-REF6289 ':INT32) (LWORK-REF6291 ':INT32)
                              (INFO-REF6292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6280 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6281 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6282 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6284 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6286 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6288 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6289 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6291 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6283 A) (B-REF6285 B)
                                            (JPVT-REF6287 JPVT)
                                            (WORK-REF6290 WORK))
      (%%DGELSY M-REF6280 N-REF6281 NRHS-REF6282 A-REF6283 LDA-REF6284
       B-REF6285 LDB-REF6286 JPVT-REF6287 RCOND-REF6288 RANK-REF6289
       WORK-REF6290 LWORK-REF6291 INFO-REF6292))))

(CFFI:DEFCFUN ("dgemlq_" %%DGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6295 ':INT32) (N-REF6296 ':INT32)
                              (K-REF6297 ':INT32) (LDA-REF6299 ':INT32)
                              (TSIZE-REF6301 ':INT32) (LDC-REF6303 ':INT32)
                              (LWORK-REF6305 ':INT32) (INFO-REF6306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6295 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6297 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6299 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6301 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6303 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6305 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6306 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6298 A) (T-REF6300 T)
                                            (C-REF6302 C) (WORK-REF6304 WORK))
      (%%DGEMLQ SIDE TRANS M-REF6295 N-REF6296 K-REF6297 A-REF6298 LDA-REF6299
       T-REF6300 TSIZE-REF6301 C-REF6302 LDC-REF6303 WORK-REF6304 LWORK-REF6305
       INFO-REF6306))))

(CFFI:DEFCFUN ("dgemlqt_" %%DGEMLQT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6309 ':INT32) (N-REF6310 ':INT32)
                              (K-REF6311 ':INT32) (MB-REF6312 ':INT32)
                              (LDV-REF6314 ':INT32) (LDT-REF6316 ':INT32)
                              (LDC-REF6318 ':INT32) (INFO-REF6320 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6309 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6311 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6312 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6314 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6316 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6318 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6320 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6313 V) (T-REF6315 T)
                                            (C-REF6317 C) (WORK-REF6319 WORK))
      (%%DGEMLQT SIDE TRANS M-REF6309 N-REF6310 K-REF6311 MB-REF6312 V-REF6313
       LDV-REF6314 T-REF6315 LDT-REF6316 C-REF6317 LDC-REF6318 WORK-REF6319
       INFO-REF6320))))

(CFFI:DEFCFUN ("dgemqr_" %%DGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6323 ':INT32) (N-REF6324 ':INT32)
                              (K-REF6325 ':INT32) (LDA-REF6327 ':INT32)
                              (TSIZE-REF6329 ':INT32) (LDC-REF6331 ':INT32)
                              (LWORK-REF6333 ':INT32) (INFO-REF6334 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6323 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6325 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6327 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6329 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6331 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6333 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6334 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6326 A) (T-REF6328 T)
                                            (C-REF6330 C) (WORK-REF6332 WORK))
      (%%DGEMQR SIDE TRANS M-REF6323 N-REF6324 K-REF6325 A-REF6326 LDA-REF6327
       T-REF6328 TSIZE-REF6329 C-REF6330 LDC-REF6331 WORK-REF6332 LWORK-REF6333
       INFO-REF6334))))

(CFFI:DEFCFUN ("dgemqrt_" %%DGEMQRT :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6337 ':INT32) (N-REF6338 ':INT32)
                              (K-REF6339 ':INT32) (NB-REF6340 ':INT32)
                              (LDV-REF6342 ':INT32) (LDT-REF6344 ':INT32)
                              (LDC-REF6346 ':INT32) (INFO-REF6348 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6337 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6339 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6340 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6342 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6344 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6346 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6348 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6341 V) (T-REF6343 T)
                                            (C-REF6345 C) (WORK-REF6347 WORK))
      (%%DGEMQRT SIDE TRANS M-REF6337 N-REF6338 K-REF6339 NB-REF6340 V-REF6341
       LDV-REF6342 T-REF6343 LDT-REF6344 C-REF6345 LDC-REF6346 WORK-REF6347
       INFO-REF6348))))

(CFFI:DEFCFUN ("dgeql2_" %%DGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6349 ':INT32) (N-REF6350 ':INT32)
                              (LDA-REF6352 ':INT32) (INFO-REF6355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6349 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6350 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6352 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6351 A) (TAU-REF6353 TAU)
                                            (WORK-REF6354 WORK))
      (%%DGEQL2 M-REF6349 N-REF6350 A-REF6351 LDA-REF6352 TAU-REF6353
       WORK-REF6354 INFO-REF6355))))

(CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6356 ':INT32) (N-REF6357 ':INT32)
                              (LDA-REF6359 ':INT32) (LWORK-REF6362 ':INT32)
                              (INFO-REF6363 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6356 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6359 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6362 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6363 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6358 A) (TAU-REF6360 TAU)
                                            (WORK-REF6361 WORK))
      (%%DGEQLF M-REF6356 N-REF6357 A-REF6358 LDA-REF6359 TAU-REF6360
       WORK-REF6361 LWORK-REF6362 INFO-REF6363))))

(CFFI:DEFCFUN ("dgeqp3_" %%DGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6364 ':INT32) (N-REF6365 ':INT32)
                              (LDA-REF6367 ':INT32) (LWORK-REF6371 ':INT32)
                              (INFO-REF6372 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6364 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6371 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6372 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6366 A) (JPVT-REF6368 JPVT)
                                            (TAU-REF6369 TAU)
                                            (WORK-REF6370 WORK))
      (%%DGEQP3 M-REF6364 N-REF6365 A-REF6366 LDA-REF6367 JPVT-REF6368
       TAU-REF6369 WORK-REF6370 LWORK-REF6371 INFO-REF6372))))

(CFFI:DEFCFUN ("dgeqr_" %%DGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6373 ':INT32) (N-REF6374 ':INT32)
                              (LDA-REF6376 ':INT32) (TSIZE-REF6378 ':INT32)
                              (LWORK-REF6380 ':INT32) (INFO-REF6381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6373 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6374 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6376 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6378 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6380 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6375 A) (T-REF6377 T)
                                            (WORK-REF6379 WORK))
      (%%DGEQR M-REF6373 N-REF6374 A-REF6375 LDA-REF6376 T-REF6377
       TSIZE-REF6378 WORK-REF6379 LWORK-REF6380 INFO-REF6381))))

(CFFI:DEFCFUN ("dgeqr2_" %%DGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6382 ':INT32) (N-REF6383 ':INT32)
                              (LDA-REF6385 ':INT32) (INFO-REF6388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6382 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6383 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6388 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6384 A) (TAU-REF6386 TAU)
                                            (WORK-REF6387 WORK))
      (%%DGEQR2 M-REF6382 N-REF6383 A-REF6384 LDA-REF6385 TAU-REF6386
       WORK-REF6387 INFO-REF6388))))

(CFFI:DEFCFUN ("dgeqr2p_" %%DGEQR2P :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6389 ':INT32) (N-REF6390 ':INT32)
                              (LDA-REF6392 ':INT32) (INFO-REF6395 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6389 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6390 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6392 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6395 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6391 A) (TAU-REF6393 TAU)
                                            (WORK-REF6394 WORK))
      (%%DGEQR2P M-REF6389 N-REF6390 A-REF6391 LDA-REF6392 TAU-REF6393
       WORK-REF6394 INFO-REF6395))))

(CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6396 ':INT32) (N-REF6397 ':INT32)
                              (LDA-REF6399 ':INT32) (LWORK-REF6402 ':INT32)
                              (INFO-REF6403 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6396 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6399 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6402 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6403 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6398 A) (TAU-REF6400 TAU)
                                            (WORK-REF6401 WORK))
      (%%DGEQRF M-REF6396 N-REF6397 A-REF6398 LDA-REF6399 TAU-REF6400
       WORK-REF6401 LWORK-REF6402 INFO-REF6403))))

(CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6404 ':INT32) (N-REF6405 ':INT32)
                              (LDA-REF6407 ':INT32) (LWORK-REF6410 ':INT32)
                              (INFO-REF6411 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6404 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6405 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6407 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6410 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6411 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6406 A) (TAU-REF6408 TAU)
                                            (WORK-REF6409 WORK))
      (%%DGEQRFP M-REF6404 N-REF6405 A-REF6406 LDA-REF6407 TAU-REF6408
       WORK-REF6409 LWORK-REF6410 INFO-REF6411))))

(CFFI:DEFCFUN ("dgeqrt_" %%DGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6412 ':INT32) (N-REF6413 ':INT32)
                              (NB-REF6414 ':INT32) (LDA-REF6416 ':INT32)
                              (LDT-REF6418 ':INT32) (INFO-REF6420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6412 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6414 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6418 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6415 A) (T-REF6417 T)
                                            (WORK-REF6419 WORK))
      (%%DGEQRT M-REF6412 N-REF6413 NB-REF6414 A-REF6415 LDA-REF6416 T-REF6417
       LDT-REF6418 WORK-REF6419 INFO-REF6420))))

(CFFI:DEFCFUN ("dgeqrt2_" %%DGEQRT2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6421 ':INT32) (N-REF6422 ':INT32)
                              (LDA-REF6424 ':INT32) (LDT-REF6426 ':INT32)
                              (INFO-REF6427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6421 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6422 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6424 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6426 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6423 A) (T-REF6425 T))
      (%%DGEQRT2 M-REF6421 N-REF6422 A-REF6423 LDA-REF6424 T-REF6425
       LDT-REF6426 INFO-REF6427))))

(CFFI:DEFCFUN ("dgeqrt3_" %%DGEQRT3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6428 ':INT32) (N-REF6429 ':INT32)
                              (LDA-REF6431 ':INT32) (LDT-REF6433 ':INT32)
                              (INFO-REF6434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6428 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6433 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6430 A) (T-REF6432 T))
      (%%DGEQRT3 M-REF6428 N-REF6429 A-REF6430 LDA-REF6431 T-REF6432
       LDT-REF6433 INFO-REF6434))))

(CFFI:DEFCFUN ("dgerfs_" %%DGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6436 ':INT32) (NRHS-REF6437 ':INT32)
                              (LDA-REF6439 ':INT32) (LDAF-REF6441 ':INT32)
                              (LDB-REF6444 ':INT32) (LDX-REF6446 ':INT32)
                              (INFO-REF6451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6436 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6437 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6439 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6441 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6444 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6446 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6438 A) (AF-REF6440 AF)
                                            (IPIV-REF6442 IPIV) (B-REF6443 B)
                                            (X-REF6445 X) (FERR-REF6447 FERR)
                                            (BERR-REF6448 BERR)
                                            (WORK-REF6449 WORK)
                                            (IWORK-REF6450 IWORK))
      (%%DGERFS TRANS N-REF6436 NRHS-REF6437 A-REF6438 LDA-REF6439 AF-REF6440
       LDAF-REF6441 IPIV-REF6442 B-REF6443 LDB-REF6444 X-REF6445 LDX-REF6446
       FERR-REF6447 BERR-REF6448 WORK-REF6449 IWORK-REF6450 INFO-REF6451))))

(CFFI:DEFCFUN ("dgerfsx_" %%DGERFSX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6454 ':INT32) (NRHS-REF6455 ':INT32)
                              (LDA-REF6457 ':INT32) (LDAF-REF6459 ':INT32)
                              (LDB-REF6464 ':INT32) (LDX-REF6466 ':INT32)
                              (RCOND-REF6467 ':DOUBLE)
                              (N_ERR_BNDS-REF6469 ':INT32)
                              (NPARAMS-REF6472 ':INT32) (INFO-REF6476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6455 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6457 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6459 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6464 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6466 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6467 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6469 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6472 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6456 A) (AF-REF6458 AF)
                                            (IPIV-REF6460 IPIV) (R-REF6461 R)
                                            (C-REF6462 C) (B-REF6463 B)
                                            (X-REF6465 X) (BERR-REF6468 BERR)
                                            (ERR_BNDS_NORM-REF6470
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6471
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6473 PARAMS)
                                            (WORK-REF6474 WORK)
                                            (IWORK-REF6475 IWORK))
      (%%DGERFSX TRANS EQUED N-REF6454 NRHS-REF6455 A-REF6456 LDA-REF6457
       AF-REF6458 LDAF-REF6459 IPIV-REF6460 R-REF6461 C-REF6462 B-REF6463
       LDB-REF6464 X-REF6465 LDX-REF6466 RCOND-REF6467 BERR-REF6468
       N_ERR_BNDS-REF6469 ERR_BNDS_NORM-REF6470 ERR_BNDS_COMP-REF6471
       NPARAMS-REF6472 PARAMS-REF6473 WORK-REF6474 IWORK-REF6475
       INFO-REF6476))))

(CFFI:DEFCFUN ("dgerq2_" %%DGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6477 ':INT32) (N-REF6478 ':INT32)
                              (LDA-REF6480 ':INT32) (INFO-REF6483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6477 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6480 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6479 A) (TAU-REF6481 TAU)
                                            (WORK-REF6482 WORK))
      (%%DGERQ2 M-REF6477 N-REF6478 A-REF6479 LDA-REF6480 TAU-REF6481
       WORK-REF6482 INFO-REF6483))))

(CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6484 ':INT32) (N-REF6485 ':INT32)
                              (LDA-REF6487 ':INT32) (LWORK-REF6490 ':INT32)
                              (INFO-REF6491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6484 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6487 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6490 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6486 A) (TAU-REF6488 TAU)
                                            (WORK-REF6489 WORK))
      (%%DGERQF M-REF6484 N-REF6485 A-REF6486 LDA-REF6487 TAU-REF6488
       WORK-REF6489 LWORK-REF6490 INFO-REF6491))))

(CFFI:DEFCFUN ("dgesc2_" %%DGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %DGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6492 ':INT32) (LDA-REF6494 ':INT32)
                              (SCALE-REF6498 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF6498 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6493 A) (RHS-REF6495 RHS)
                                            (IPIV-REF6496 IPIV)
                                            (JPIV-REF6497 JPIV))
      (%%DGESC2 N-REF6492 A-REF6493 LDA-REF6494 RHS-REF6495 IPIV-REF6496
       JPIV-REF6497 SCALE-REF6498))))

(CFFI:DEFCFUN ("dgesdd_" %%DGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6500 ':INT32) (N-REF6501 ':INT32)
                              (LDA-REF6503 ':INT32) (LDU-REF6506 ':INT32)
                              (LDVT-REF6508 ':INT32) (LWORK-REF6510 ':INT32)
                              (INFO-REF6512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6500 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6506 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6508 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6510 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6512 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6502 A) (S-REF6504 S)
                                            (U-REF6505 U) (VT-REF6507 VT)
                                            (WORK-REF6509 WORK)
                                            (IWORK-REF6511 IWORK))
      (%%DGESDD JOBZ M-REF6500 N-REF6501 A-REF6502 LDA-REF6503 S-REF6504
       U-REF6505 LDU-REF6506 VT-REF6507 LDVT-REF6508 WORK-REF6509 LWORK-REF6510
       IWORK-REF6511 INFO-REF6512))))

(CFFI:DEFCFUN ("dgesv_" %%DGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6513 ':INT32) (NRHS-REF6514 ':INT32)
                              (LDA-REF6516 ':INT32) (LDB-REF6519 ':INT32)
                              (INFO-REF6520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6513 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6514 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6516 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6519 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6515 A) (IPIV-REF6517 IPIV)
                                            (B-REF6518 B))
      (%%DGESV N-REF6513 NRHS-REF6514 A-REF6515 LDA-REF6516 IPIV-REF6517
       B-REF6518 LDB-REF6519 INFO-REF6520))))

(CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6523 ':INT32) (N-REF6524 ':INT32)
                              (LDA-REF6526 ':INT32) (LDU-REF6529 ':INT32)
                              (LDVT-REF6531 ':INT32) (LWORK-REF6533 ':INT32)
                              (INFO-REF6534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6523 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6526 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6529 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6531 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6533 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6525 A) (S-REF6527 S)
                                            (U-REF6528 U) (VT-REF6530 VT)
                                            (WORK-REF6532 WORK))
      (%%DGESVD JOBU JOBVT M-REF6523 N-REF6524 A-REF6525 LDA-REF6526 S-REF6527
       U-REF6528 LDU-REF6529 VT-REF6530 LDVT-REF6531 WORK-REF6532 LWORK-REF6533
       INFO-REF6534))))

(CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6540 ':INT32) (N-REF6541 ':INT32)
                              (LDA-REF6543 ':INT32) (LDU-REF6546 ':INT32)
                              (LDV-REF6548 ':INT32) (NUMRANK-REF6549 ':INT32)
                              (LIWORK-REF6551 ':INT32) (LWORK-REF6553 ':INT32)
                              (LRWORK-REF6555 ':INT32) (INFO-REF6556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6540 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6541 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6543 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6546 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6548 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6549 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6551 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6553 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6555 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6542 A) (S-REF6544 S)
                                            (U-REF6545 U) (V-REF6547 V)
                                            (IWORK-REF6550 IWORK)
                                            (WORK-REF6552 WORK)
                                            (RWORK-REF6554 RWORK))
      (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6540 N-REF6541 A-REF6542
       LDA-REF6543 S-REF6544 U-REF6545 LDU-REF6546 V-REF6547 LDV-REF6548
       NUMRANK-REF6549 IWORK-REF6550 LIWORK-REF6551 WORK-REF6552 LWORK-REF6553
       RWORK-REF6554 LRWORK-REF6555 INFO-REF6556))))

(CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6560 ':INT32) (N-REF6561 ':INT32)
                              (LDA-REF6563 ':INT32) (VL-REF6564 ':DOUBLE)
                              (VU-REF6565 ':DOUBLE) (IL-REF6566 ':INT32)
                              (IU-REF6567 ':INT32) (NS-REF6568 ':INT32)
                              (LDU-REF6571 ':INT32) (LDVT-REF6573 ':INT32)
                              (LWORK-REF6575 ':INT32) (INFO-REF6577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6560 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6561 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6563 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6564 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6565 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6566 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6567 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6568 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6571 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6573 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6575 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6562 A) (S-REF6569 S)
                                            (U-REF6570 U) (VT-REF6572 VT)
                                            (WORK-REF6574 WORK)
                                            (IWORK-REF6576 IWORK))
      (%%DGESVDX JOBU JOBVT RANGE M-REF6560 N-REF6561 A-REF6562 LDA-REF6563
       VL-REF6564 VU-REF6565 IL-REF6566 IU-REF6567 NS-REF6568 S-REF6569
       U-REF6570 LDU-REF6571 VT-REF6572 LDVT-REF6573 WORK-REF6574 LWORK-REF6575
       IWORK-REF6576 INFO-REF6577))))

(CFFI:DEFCFUN ("dgesvj_" %%DGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6581 ':INT32) (N-REF6582 ':INT32)
                              (LDA-REF6584 ':INT32) (MV-REF6586 ':INT32)
                              (LDV-REF6588 ':INT32) (LWORK-REF6590 ':INT32)
                              (INFO-REF6591 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6581 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6584 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6586 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6588 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6590 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6591 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6583 A) (SVA-REF6585 SVA)
                                            (V-REF6587 V) (WORK-REF6589 WORK))
      (%%DGESVJ JOBA JOBU JOBV M-REF6581 N-REF6582 A-REF6583 LDA-REF6584
       SVA-REF6585 MV-REF6586 V-REF6587 LDV-REF6588 WORK-REF6589 LWORK-REF6590
       INFO-REF6591))))

(CFFI:DEFCFUN ("dgesvx_" %%DGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6594 ':INT32) (NRHS-REF6595 ':INT32)
                              (LDA-REF6597 ':INT32) (LDAF-REF6599 ':INT32)
                              (LDB-REF6605 ':INT32) (LDX-REF6607 ':INT32)
                              (RCOND-REF6608 ':DOUBLE) (INFO-REF6613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6595 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6597 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6599 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6605 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6607 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6608 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6596 A) (AF-REF6598 AF)
                                            (IPIV-REF6600 IPIV) (R-REF6602 R)
                                            (C-REF6603 C) (B-REF6604 B)
                                            (X-REF6606 X) (FERR-REF6609 FERR)
                                            (BERR-REF6610 BERR)
                                            (WORK-REF6611 WORK)
                                            (IWORK-REF6612 IWORK))
      (%%DGESVX FACT TRANS N-REF6594 NRHS-REF6595 A-REF6596 LDA-REF6597
       AF-REF6598 LDAF-REF6599 IPIV-REF6600 EQUED R-REF6602 C-REF6603 B-REF6604
       LDB-REF6605 X-REF6606 LDX-REF6607 RCOND-REF6608 FERR-REF6609
       BERR-REF6610 WORK-REF6611 IWORK-REF6612 INFO-REF6613))))

(CFFI:DEFCFUN ("dgesvxx_" %%DGESVXX :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6616 ':INT32) (NRHS-REF6617 ':INT32)
                              (LDA-REF6619 ':INT32) (LDAF-REF6621 ':INT32)
                              (LDB-REF6627 ':INT32) (LDX-REF6629 ':INT32)
                              (RCOND-REF6630 ':DOUBLE)
                              (RPVGRW-REF6631 ':DOUBLE)
                              (N_ERR_BNDS-REF6633 ':INT32)
                              (NPARAMS-REF6636 ':INT32) (INFO-REF6640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6616 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6617 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6619 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6621 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6627 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6629 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6630 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6631 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6633 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6636 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6618 A) (AF-REF6620 AF)
                                            (IPIV-REF6622 IPIV) (R-REF6624 R)
                                            (C-REF6625 C) (B-REF6626 B)
                                            (X-REF6628 X) (BERR-REF6632 BERR)
                                            (ERR_BNDS_NORM-REF6634
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6635
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6637 PARAMS)
                                            (WORK-REF6638 WORK)
                                            (IWORK-REF6639 IWORK))
      (%%DGESVXX FACT TRANS N-REF6616 NRHS-REF6617 A-REF6618 LDA-REF6619
       AF-REF6620 LDAF-REF6621 IPIV-REF6622 EQUED R-REF6624 C-REF6625 B-REF6626
       LDB-REF6627 X-REF6628 LDX-REF6629 RCOND-REF6630 RPVGRW-REF6631
       BERR-REF6632 N_ERR_BNDS-REF6633 ERR_BNDS_NORM-REF6634
       ERR_BNDS_COMP-REF6635 NPARAMS-REF6636 PARAMS-REF6637 WORK-REF6638
       IWORK-REF6639 INFO-REF6640))))

(CFFI:DEFCFUN ("dgetc2_" %%DGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6641 ':INT32) (LDA-REF6643 ':INT32)
                              (INFO-REF6646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6643 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6646 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6642 A) (IPIV-REF6644 IPIV)
                                            (JPIV-REF6645 JPIV))
      (%%DGETC2 N-REF6641 A-REF6642 LDA-REF6643 IPIV-REF6644 JPIV-REF6645
       INFO-REF6646))))

(CFFI:DEFCFUN ("dgetf2_" %%DGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6647 ':INT32) (N-REF6648 ':INT32)
                              (LDA-REF6650 ':INT32) (INFO-REF6652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6647 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6650 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6649 A) (IPIV-REF6651 IPIV))
      (%%DGETF2 M-REF6647 N-REF6648 A-REF6649 LDA-REF6650 IPIV-REF6651
       INFO-REF6652))))

(CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6653 ':INT32) (N-REF6654 ':INT32)
                              (LDA-REF6656 ':INT32) (INFO-REF6658 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6653 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6654 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6656 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6658 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6655 A) (IPIV-REF6657 IPIV))
      (%%DGETRF M-REF6653 N-REF6654 A-REF6655 LDA-REF6656 IPIV-REF6657
       INFO-REF6658))))

(CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6659 ':INT32) (N-REF6660 ':INT32)
                              (LDA-REF6662 ':INT32) (INFO-REF6664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6659 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6661 A) (IPIV-REF6663 IPIV))
      (%%DGETRF2 M-REF6659 N-REF6660 A-REF6661 LDA-REF6662 IPIV-REF6663
       INFO-REF6664))))

(CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6665 ':INT32) (LDA-REF6667 ':INT32)
                              (LWORK-REF6670 ':INT32) (INFO-REF6671 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6665 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6667 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6670 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6671 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6666 A) (IPIV-REF6668 IPIV)
                                            (WORK-REF6669 WORK))
      (%%DGETRI N-REF6665 A-REF6666 LDA-REF6667 IPIV-REF6668 WORK-REF6669
       LWORK-REF6670 INFO-REF6671))))

(CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6673 ':INT32) (NRHS-REF6674 ':INT32)
                              (LDA-REF6676 ':INT32) (LDB-REF6679 ':INT32)
                              (INFO-REF6680 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6674 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6676 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6679 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6680 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6675 A) (IPIV-REF6677 IPIV)
                                            (B-REF6678 B))
      (%%DGETRS TRANS N-REF6673 NRHS-REF6674 A-REF6675 LDA-REF6676 IPIV-REF6677
       B-REF6678 LDB-REF6679 INFO-REF6680))))

(CFFI:DEFCFUN ("dgetsls_" %%DGETSLS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6682 ':INT32) (N-REF6683 ':INT32)
                              (NRHS-REF6684 ':INT32) (LDA-REF6686 ':INT32)
                              (LDB-REF6688 ':INT32) (LWORK-REF6690 ':INT32)
                              (INFO-REF6691 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6682 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6683 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6684 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6686 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6688 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6690 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6691 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6685 A) (B-REF6687 B)
                                            (WORK-REF6689 WORK))
      (%%DGETSLS TRANS M-REF6682 N-REF6683 NRHS-REF6684 A-REF6685 LDA-REF6686
       B-REF6687 LDB-REF6688 WORK-REF6689 LWORK-REF6690 INFO-REF6691))))

(CFFI:DEFCFUN ("dggbak_" %%DGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6694 ':INT32) (ILO-REF6695 ':INT32)
                              (IHI-REF6696 ':INT32) (M-REF6699 ':INT32)
                              (LDV-REF6701 ':INT32) (INFO-REF6702 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6695 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6696 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6701 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6702 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF6697 LSCALE)
                                            (RSCALE-REF6698 RSCALE)
                                            (V-REF6700 V))
      (%%DGGBAK JOB SIDE N-REF6694 ILO-REF6695 IHI-REF6696 LSCALE-REF6697
       RSCALE-REF6698 M-REF6699 V-REF6700 LDV-REF6701 INFO-REF6702))))

(CFFI:DEFCFUN ("dggbal_" %%DGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6704 ':INT32) (LDA-REF6706 ':INT32)
                              (LDB-REF6708 ':INT32) (ILO-REF6709 ':INT32)
                              (IHI-REF6710 ':INT32) (INFO-REF6714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6704 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6706 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6708 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6709 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6710 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6705 A) (B-REF6707 B)
                                            (LSCALE-REF6711 LSCALE)
                                            (RSCALE-REF6712 RSCALE)
                                            (WORK-REF6713 WORK))
      (%%DGGBAL JOB N-REF6704 A-REF6705 LDA-REF6706 B-REF6707 LDB-REF6708
       ILO-REF6709 IHI-REF6710 LSCALE-REF6711 RSCALE-REF6712 WORK-REF6713
       INFO-REF6714))))

(CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6718 ':INT32) (N-REF6719 ':INT32)
                              (LDA-REF6721 ':INT32) (LDB-REF6723 ':INT32)
                              (SDIM-REF6724 ':INT32) (LDVSL-REF6729 ':INT32)
                              (LDVSR-REF6731 ':INT32) (LWORK-REF6733 ':INT32)
                              (INFO-REF6735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6718 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6719 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6721 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6723 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6724 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6729 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6731 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6733 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6735 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6720 A) (B-REF6722 B)
                                            (ALPHAR-REF6725 ALPHAR)
                                            (ALPHAI-REF6726 ALPHAI)
                                            (BETA-REF6727 BETA)
                                            (VSL-REF6728 VSL) (VSR-REF6730 VSR)
                                            (WORK-REF6732 WORK)
                                            (BWORK-REF6734 BWORK))
      (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF6718 N-REF6719 A-REF6720
       LDA-REF6721 B-REF6722 LDB-REF6723 SDIM-REF6724 ALPHAR-REF6725
       ALPHAI-REF6726 BETA-REF6727 VSL-REF6728 LDVSL-REF6729 VSR-REF6730
       LDVSR-REF6731 WORK-REF6732 LWORK-REF6733 BWORK-REF6734 INFO-REF6735))))

(CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6739 ':INT32) (N-REF6740 ':INT32)
                              (LDA-REF6742 ':INT32) (LDB-REF6744 ':INT32)
                              (SDIM-REF6745 ':INT32) (LDVSL-REF6750 ':INT32)
                              (LDVSR-REF6752 ':INT32) (LWORK-REF6754 ':INT32)
                              (INFO-REF6756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6739 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6740 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6742 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6744 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6745 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6750 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6752 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6754 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6756 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6741 A) (B-REF6743 B)
                                            (ALPHAR-REF6746 ALPHAR)
                                            (ALPHAI-REF6747 ALPHAI)
                                            (BETA-REF6748 BETA)
                                            (VSL-REF6749 VSL) (VSR-REF6751 VSR)
                                            (WORK-REF6753 WORK)
                                            (BWORK-REF6755 BWORK))
      (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF6739 N-REF6740 A-REF6741
       LDA-REF6742 B-REF6743 LDB-REF6744 SDIM-REF6745 ALPHAR-REF6746
       ALPHAI-REF6747 BETA-REF6748 VSL-REF6749 LDVSL-REF6750 VSR-REF6751
       LDVSR-REF6752 WORK-REF6753 LWORK-REF6754 BWORK-REF6755 INFO-REF6756))))

(CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR
                    ALPHAI BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6760 ':INT32) (N-REF6762 ':INT32)
                              (LDA-REF6764 ':INT32) (LDB-REF6766 ':INT32)
                              (SDIM-REF6767 ':INT32) (LDVSL-REF6772 ':INT32)
                              (LDVSR-REF6774 ':INT32) (LWORK-REF6778 ':INT32)
                              (LIWORK-REF6780 ':INT32) (INFO-REF6782 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6760 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6762 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6764 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6766 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6767 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6772 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6774 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6778 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6780 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6782 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6763 A) (B-REF6765 B)
                                            (ALPHAR-REF6768 ALPHAR)
                                            (ALPHAI-REF6769 ALPHAI)
                                            (BETA-REF6770 BETA)
                                            (VSL-REF6771 VSL) (VSR-REF6773 VSR)
                                            (RCONDE-REF6775 RCONDE)
                                            (RCONDV-REF6776 RCONDV)
                                            (WORK-REF6777 WORK)
                                            (IWORK-REF6779 IWORK)
                                            (BWORK-REF6781 BWORK))
      (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF6760 SENSE N-REF6762 A-REF6763
       LDA-REF6764 B-REF6765 LDB-REF6766 SDIM-REF6767 ALPHAR-REF6768
       ALPHAI-REF6769 BETA-REF6770 VSL-REF6771 LDVSL-REF6772 VSR-REF6773
       LDVSR-REF6774 RCONDE-REF6775 RCONDV-REF6776 WORK-REF6777 LWORK-REF6778
       IWORK-REF6779 LIWORK-REF6780 BWORK-REF6781 INFO-REF6782))))

(CFFI:DEFCFUN ("dggev_" %%DGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6785 ':INT32) (LDA-REF6787 ':INT32)
                              (LDB-REF6789 ':INT32) (LDVL-REF6794 ':INT32)
                              (LDVR-REF6796 ':INT32) (LWORK-REF6798 ':INT32)
                              (INFO-REF6799 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6787 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6789 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6794 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6796 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6798 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6799 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6786 A) (B-REF6788 B)
                                            (ALPHAR-REF6790 ALPHAR)
                                            (ALPHAI-REF6791 ALPHAI)
                                            (BETA-REF6792 BETA) (VL-REF6793 VL)
                                            (VR-REF6795 VR) (WORK-REF6797 WORK))
      (%%DGGEV JOBVL JOBVR N-REF6785 A-REF6786 LDA-REF6787 B-REF6788
       LDB-REF6789 ALPHAR-REF6790 ALPHAI-REF6791 BETA-REF6792 VL-REF6793
       LDVL-REF6794 VR-REF6795 LDVR-REF6796 WORK-REF6797 LWORK-REF6798
       INFO-REF6799))))

(CFFI:DEFCFUN ("dggev3_" %%DGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6802 ':INT32) (LDA-REF6804 ':INT32)
                              (LDB-REF6806 ':INT32) (LDVL-REF6811 ':INT32)
                              (LDVR-REF6813 ':INT32) (LWORK-REF6815 ':INT32)
                              (INFO-REF6816 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6802 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6804 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6806 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6811 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6813 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6815 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6816 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6803 A) (B-REF6805 B)
                                            (ALPHAR-REF6807 ALPHAR)
                                            (ALPHAI-REF6808 ALPHAI)
                                            (BETA-REF6809 BETA) (VL-REF6810 VL)
                                            (VR-REF6812 VR) (WORK-REF6814 WORK))
      (%%DGGEV3 JOBVL JOBVR N-REF6802 A-REF6803 LDA-REF6804 B-REF6805
       LDB-REF6806 ALPHAR-REF6807 ALPHAI-REF6808 BETA-REF6809 VL-REF6810
       LDVL-REF6811 VR-REF6812 LDVR-REF6813 WORK-REF6814 LWORK-REF6815
       INFO-REF6816))))

(CFFI:DEFCFUN ("dggevx_" %%DGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA
                    VL LDVL VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE
                    RCONDV WORK LWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6821 ':INT32) (LDA-REF6823 ':INT32)
                              (LDB-REF6825 ':INT32) (LDVL-REF6830 ':INT32)
                              (LDVR-REF6832 ':INT32) (ILO-REF6833 ':INT32)
                              (IHI-REF6834 ':INT32) (ABNRM-REF6837 ':DOUBLE)
                              (BBNRM-REF6838 ':DOUBLE) (LWORK-REF6842 ':INT32)
                              (INFO-REF6845 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6821 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6823 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6825 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6830 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6832 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6833 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6834 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6837 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF6838 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6842 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6845 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6822 A) (B-REF6824 B)
                                            (ALPHAR-REF6826 ALPHAR)
                                            (ALPHAI-REF6827 ALPHAI)
                                            (BETA-REF6828 BETA) (VL-REF6829 VL)
                                            (VR-REF6831 VR)
                                            (LSCALE-REF6835 LSCALE)
                                            (RSCALE-REF6836 RSCALE)
                                            (RCONDE-REF6839 RCONDE)
                                            (RCONDV-REF6840 RCONDV)
                                            (WORK-REF6841 WORK)
                                            (IWORK-REF6843 IWORK)
                                            (BWORK-REF6844 BWORK))
      (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF6821 A-REF6822 LDA-REF6823
       B-REF6824 LDB-REF6825 ALPHAR-REF6826 ALPHAI-REF6827 BETA-REF6828
       VL-REF6829 LDVL-REF6830 VR-REF6831 LDVR-REF6832 ILO-REF6833 IHI-REF6834
       LSCALE-REF6835 RSCALE-REF6836 ABNRM-REF6837 BBNRM-REF6838 RCONDE-REF6839
       RCONDV-REF6840 WORK-REF6841 LWORK-REF6842 IWORK-REF6843 BWORK-REF6844
       INFO-REF6845))))

(CFFI:DEFCFUN ("dggglm_" %%DGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6846 ':INT32) (M-REF6847 ':INT32)
                              (P-REF6848 ':INT32) (LDA-REF6850 ':INT32)
                              (LDB-REF6852 ':INT32) (LWORK-REF6857 ':INT32)
                              (INFO-REF6858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6846 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6847 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6848 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6850 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6852 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6857 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6849 A) (B-REF6851 B)
                                            (D-REF6853 D) (X-REF6854 X)
                                            (Y-REF6855 Y) (WORK-REF6856 WORK))
      (%%DGGGLM N-REF6846 M-REF6847 P-REF6848 A-REF6849 LDA-REF6850 B-REF6851
       LDB-REF6852 D-REF6853 X-REF6854 Y-REF6855 WORK-REF6856 LWORK-REF6857
       INFO-REF6858))))

(CFFI:DEFCFUN ("dgghd3_" %%DGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6861 ':INT32) (ILO-REF6862 ':INT32)
                              (IHI-REF6863 ':INT32) (LDA-REF6865 ':INT32)
                              (LDB-REF6867 ':INT32) (LDQ-REF6869 ':INT32)
                              (LDZ-REF6871 ':INT32) (LWORK-REF6873 ':INT32)
                              (INFO-REF6874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6861 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6862 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6863 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6865 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6867 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6869 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6871 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6873 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6864 A) (B-REF6866 B)
                                            (Q-REF6868 Q) (Z-REF6870 Z)
                                            (WORK-REF6872 WORK))
      (%%DGGHD3 COMPQ COMPZ N-REF6861 ILO-REF6862 IHI-REF6863 A-REF6864
       LDA-REF6865 B-REF6866 LDB-REF6867 Q-REF6868 LDQ-REF6869 Z-REF6870
       LDZ-REF6871 WORK-REF6872 LWORK-REF6873 INFO-REF6874))))

(CFFI:DEFCFUN ("dgghrd_" %%DGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6877 ':INT32) (ILO-REF6878 ':INT32)
                              (IHI-REF6879 ':INT32) (LDA-REF6881 ':INT32)
                              (LDB-REF6883 ':INT32) (LDQ-REF6885 ':INT32)
                              (LDZ-REF6887 ':INT32) (INFO-REF6888 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6878 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6879 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6881 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6883 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6885 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6887 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6888 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6880 A) (B-REF6882 B)
                                            (Q-REF6884 Q) (Z-REF6886 Z))
      (%%DGGHRD COMPQ COMPZ N-REF6877 ILO-REF6878 IHI-REF6879 A-REF6880
       LDA-REF6881 B-REF6882 LDB-REF6883 Q-REF6884 LDQ-REF6885 Z-REF6886
       LDZ-REF6887 INFO-REF6888))))

(CFFI:DEFCFUN ("dgglse_" %%DGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6889 ':INT32) (N-REF6890 ':INT32)
                              (P-REF6891 ':INT32) (LDA-REF6893 ':INT32)
                              (LDB-REF6895 ':INT32) (LWORK-REF6900 ':INT32)
                              (INFO-REF6901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6889 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6891 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6893 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6895 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6900 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6901 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6892 A) (B-REF6894 B)
                                            (C-REF6896 C) (D-REF6897 D)
                                            (X-REF6898 X) (WORK-REF6899 WORK))
      (%%DGGLSE M-REF6889 N-REF6890 P-REF6891 A-REF6892 LDA-REF6893 B-REF6894
       LDB-REF6895 C-REF6896 D-REF6897 X-REF6898 WORK-REF6899 LWORK-REF6900
       INFO-REF6901))))

(CFFI:DEFCFUN ("dggqrf_" %%DGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6902 ':INT32) (M-REF6903 ':INT32)
                              (P-REF6904 ':INT32) (LDA-REF6906 ':INT32)
                              (LDB-REF6909 ':INT32) (LWORK-REF6912 ':INT32)
                              (INFO-REF6913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6902 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6903 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6904 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6906 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6909 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6912 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6913 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6905 A) (TAUA-REF6907 TAUA)
                                            (B-REF6908 B) (TAUB-REF6910 TAUB)
                                            (WORK-REF6911 WORK))
      (%%DGGQRF N-REF6902 M-REF6903 P-REF6904 A-REF6905 LDA-REF6906
       TAUA-REF6907 B-REF6908 LDB-REF6909 TAUB-REF6910 WORK-REF6911
       LWORK-REF6912 INFO-REF6913))))

(CFFI:DEFCFUN ("dggrqf_" %%DGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6914 ':INT32) (P-REF6915 ':INT32)
                              (N-REF6916 ':INT32) (LDA-REF6918 ':INT32)
                              (LDB-REF6921 ':INT32) (LWORK-REF6924 ':INT32)
                              (INFO-REF6925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6914 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6915 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6916 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6918 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6921 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6924 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6925 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6917 A) (TAUA-REF6919 TAUA)
                                            (B-REF6920 B) (TAUB-REF6922 TAUB)
                                            (WORK-REF6923 WORK))
      (%%DGGRQF M-REF6914 P-REF6915 N-REF6916 A-REF6917 LDA-REF6918
       TAUA-REF6919 B-REF6920 LDB-REF6921 TAUB-REF6922 WORK-REF6923
       LWORK-REF6924 INFO-REF6925))))

(CFFI:DEFCFUN ("dggsvd3_" %%DGGSVD3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6929 ':INT32) (N-REF6930 ':INT32)
                              (P-REF6931 ':INT32) (K-REF6932 ':INT32)
                              (L-REF6933 ':INT32) (LDA-REF6935 ':INT32)
                              (LDB-REF6937 ':INT32) (LDU-REF6941 ':INT32)
                              (LDV-REF6943 ':INT32) (LDQ-REF6945 ':INT32)
                              (LWORK-REF6947 ':INT32) (INFO-REF6949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6929 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6931 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6932 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6933 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6935 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6937 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6941 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6943 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6945 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6947 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6934 A) (B-REF6936 B)
                                            (ALPHA-REF6938 ALPHA)
                                            (BETA-REF6939 BETA) (U-REF6940 U)
                                            (V-REF6942 V) (Q-REF6944 Q)
                                            (WORK-REF6946 WORK)
                                            (IWORK-REF6948 IWORK))
      (%%DGGSVD3 JOBU JOBV JOBQ M-REF6929 N-REF6930 P-REF6931 K-REF6932
       L-REF6933 A-REF6934 LDA-REF6935 B-REF6936 LDB-REF6937 ALPHA-REF6938
       BETA-REF6939 U-REF6940 LDU-REF6941 V-REF6942 LDV-REF6943 Q-REF6944
       LDQ-REF6945 WORK-REF6946 LWORK-REF6947 IWORK-REF6948 INFO-REF6949))))

(CFFI:DEFCFUN ("dggsvp3_" %%DGGSVP3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6953 ':INT32) (P-REF6954 ':INT32)
                              (N-REF6955 ':INT32) (LDA-REF6957 ':INT32)
                              (LDB-REF6959 ':INT32) (TOLA-REF6960 ':DOUBLE)
                              (TOLB-REF6961 ':DOUBLE) (K-REF6962 ':INT32)
                              (L-REF6963 ':INT32) (LDU-REF6965 ':INT32)
                              (LDV-REF6967 ':INT32) (LDQ-REF6969 ':INT32)
                              (LWORK-REF6973 ':INT32) (INFO-REF6974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6953 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6954 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6955 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6957 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6959 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF6960 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF6961 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6962 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6963 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6965 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6967 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6969 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6973 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6956 A) (B-REF6958 B)
                                            (U-REF6964 U) (V-REF6966 V)
                                            (Q-REF6968 Q) (IWORK-REF6970 IWORK)
                                            (TAU-REF6971 TAU)
                                            (WORK-REF6972 WORK))
      (%%DGGSVP3 JOBU JOBV JOBQ M-REF6953 P-REF6954 N-REF6955 A-REF6956
       LDA-REF6957 B-REF6958 LDB-REF6959 TOLA-REF6960 TOLB-REF6961 K-REF6962
       L-REF6963 U-REF6964 LDU-REF6965 V-REF6966 LDV-REF6967 Q-REF6968
       LDQ-REF6969 IWORK-REF6970 TAU-REF6971 WORK-REF6972 LWORK-REF6973
       INFO-REF6974))))

(CFFI:DEFCFUN ("dgsvj0_" %%DGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6976 ':INT32) (N-REF6977 ':INT32)
                              (LDA-REF6979 ':INT32) (MV-REF6982 ':INT32)
                              (LDV-REF6984 ':INT32) (EPS-REF6985 ':DOUBLE)
                              (SFMIN-REF6986 ':DOUBLE) (TOL-REF6987 ':DOUBLE)
                              (NSWEEP-REF6988 ':INT32) (LWORK-REF6990 ':INT32)
                              (INFO-REF6991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6976 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6979 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6982 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6984 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF6985 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF6986 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF6987 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF6988 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6990 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6991 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6978 A) (D-REF6980 D)
                                            (SVA-REF6981 SVA) (V-REF6983 V)
                                            (WORK-REF6989 WORK))
      (%%DGSVJ0 JOBV M-REF6976 N-REF6977 A-REF6978 LDA-REF6979 D-REF6980
       SVA-REF6981 MV-REF6982 V-REF6983 LDV-REF6984 EPS-REF6985 SFMIN-REF6986
       TOL-REF6987 NSWEEP-REF6988 WORK-REF6989 LWORK-REF6990 INFO-REF6991))))

(CFFI:DEFCFUN ("dgsvj1_" %%DGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6993 ':INT32) (N-REF6994 ':INT32)
                              (N1-REF6995 ':INT32) (LDA-REF6997 ':INT32)
                              (MV-REF7000 ':INT32) (LDV-REF7002 ':INT32)
                              (EPS-REF7003 ':DOUBLE) (SFMIN-REF7004 ':DOUBLE)
                              (TOL-REF7005 ':DOUBLE) (NSWEEP-REF7006 ':INT32)
                              (LWORK-REF7008 ':INT32) (INFO-REF7009 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6993 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6994 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF6995 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6997 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7000 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7002 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7003 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7004 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7005 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7006 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7008 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7009 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6996 A) (D-REF6998 D)
                                            (SVA-REF6999 SVA) (V-REF7001 V)
                                            (WORK-REF7007 WORK))
      (%%DGSVJ1 JOBV M-REF6993 N-REF6994 N1-REF6995 A-REF6996 LDA-REF6997
       D-REF6998 SVA-REF6999 MV-REF7000 V-REF7001 LDV-REF7002 EPS-REF7003
       SFMIN-REF7004 TOL-REF7005 NSWEEP-REF7006 WORK-REF7007 LWORK-REF7008
       INFO-REF7009))))

(CFFI:DEFCFUN ("dgtcon_" %%DGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTCON
                   (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7011 ':INT32) (ANORM-REF7017 ':DOUBLE)
                              (RCOND-REF7018 ':DOUBLE) (INFO-REF7021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7011 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7017 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7018 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7021 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7012 DL) (D-REF7013 D)
                                            (DU-REF7014 DU) (DU2-REF7015 DU2)
                                            (IPIV-REF7016 IPIV)
                                            (WORK-REF7019 WORK)
                                            (IWORK-REF7020 IWORK))
      (%%DGTCON NORM N-REF7011 DL-REF7012 D-REF7013 DU-REF7014 DU2-REF7015
       IPIV-REF7016 ANORM-REF7017 RCOND-REF7018 WORK-REF7019 IWORK-REF7020
       INFO-REF7021))))

(CFFI:DEFCFUN ("dgtrfs_" %%DGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7023 ':INT32) (NRHS-REF7024 ':INT32)
                              (LDB-REF7034 ':INT32) (LDX-REF7036 ':INT32)
                              (INFO-REF7041 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7024 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7034 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7036 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7041 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7025 DL) (D-REF7026 D)
                                            (DU-REF7027 DU) (DLF-REF7028 DLF)
                                            (DF-REF7029 DF) (DUF-REF7030 DUF)
                                            (DU2-REF7031 DU2)
                                            (IPIV-REF7032 IPIV) (B-REF7033 B)
                                            (X-REF7035 X) (FERR-REF7037 FERR)
                                            (BERR-REF7038 BERR)
                                            (WORK-REF7039 WORK)
                                            (IWORK-REF7040 IWORK))
      (%%DGTRFS TRANS N-REF7023 NRHS-REF7024 DL-REF7025 D-REF7026 DU-REF7027
       DLF-REF7028 DF-REF7029 DUF-REF7030 DU2-REF7031 IPIV-REF7032 B-REF7033
       LDB-REF7034 X-REF7035 LDX-REF7036 FERR-REF7037 BERR-REF7038 WORK-REF7039
       IWORK-REF7040 INFO-REF7041))))

(CFFI:DEFCFUN ("dgtsv_" %%DGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7042 ':INT32) (NRHS-REF7043 ':INT32)
                              (LDB-REF7048 ':INT32) (INFO-REF7049 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7043 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7048 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7049 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7044 DL) (D-REF7045 D)
                                            (DU-REF7046 DU) (B-REF7047 B))
      (%%DGTSV N-REF7042 NRHS-REF7043 DL-REF7044 D-REF7045 DU-REF7046 B-REF7047
       LDB-REF7048 INFO-REF7049))))

(CFFI:DEFCFUN ("dgtsvx_" %%DGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7052 ':INT32) (NRHS-REF7053 ':INT32)
                              (LDB-REF7063 ':INT32) (LDX-REF7065 ':INT32)
                              (RCOND-REF7066 ':DOUBLE) (INFO-REF7071 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7053 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7063 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7065 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7066 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7071 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7054 DL) (D-REF7055 D)
                                            (DU-REF7056 DU) (DLF-REF7057 DLF)
                                            (DF-REF7058 DF) (DUF-REF7059 DUF)
                                            (DU2-REF7060 DU2)
                                            (IPIV-REF7061 IPIV) (B-REF7062 B)
                                            (X-REF7064 X) (FERR-REF7067 FERR)
                                            (BERR-REF7068 BERR)
                                            (WORK-REF7069 WORK)
                                            (IWORK-REF7070 IWORK))
      (%%DGTSVX FACT TRANS N-REF7052 NRHS-REF7053 DL-REF7054 D-REF7055
       DU-REF7056 DLF-REF7057 DF-REF7058 DUF-REF7059 DU2-REF7060 IPIV-REF7061
       B-REF7062 LDB-REF7063 X-REF7064 LDX-REF7065 RCOND-REF7066 FERR-REF7067
       BERR-REF7068 WORK-REF7069 IWORK-REF7070 INFO-REF7071))))

(CFFI:DEFCFUN ("dgttrf_" %%DGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7072 ':INT32) (INFO-REF7078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7078 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7073 DL) (D-REF7074 D)
                                            (DU-REF7075 DU) (DU2-REF7076 DU2)
                                            (IPIV-REF7077 IPIV))
      (%%DGTTRF N-REF7072 DL-REF7073 D-REF7074 DU-REF7075 DU2-REF7076
       IPIV-REF7077 INFO-REF7078))))

(CFFI:DEFCFUN ("dgttrs_" %%DGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7080 ':INT32) (NRHS-REF7081 ':INT32)
                              (LDB-REF7088 ':INT32) (INFO-REF7089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7081 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7088 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7082 DL) (D-REF7083 D)
                                            (DU-REF7084 DU) (DU2-REF7085 DU2)
                                            (IPIV-REF7086 IPIV) (B-REF7087 B))
      (%%DGTTRS TRANS N-REF7080 NRHS-REF7081 DL-REF7082 D-REF7083 DU-REF7084
       DU2-REF7085 IPIV-REF7086 B-REF7087 LDB-REF7088 INFO-REF7089))))

(CFFI:DEFCFUN ("dgtts2_" %%DGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7090 ':INT32) (N-REF7091 ':INT32)
                              (NRHS-REF7092 ':INT32) (LDB-REF7099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7090 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7091 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7092 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7099 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7093 DL) (D-REF7094 D)
                                            (DU-REF7095 DU) (DU2-REF7096 DU2)
                                            (IPIV-REF7097 IPIV) (B-REF7098 B))
      (%%DGTTS2 ITRANS-REF7090 N-REF7091 NRHS-REF7092 DL-REF7093 D-REF7094
       DU-REF7095 DU2-REF7096 IPIV-REF7097 B-REF7098 LDB-REF7099))))

(CFFI:DEFCFUN ("dhgeqz_" %%DHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7103 ':INT32) (ILO-REF7104 ':INT32)
                              (IHI-REF7105 ':INT32) (LDH-REF7107 ':INT32)
                              (LDT-REF7109 ':INT32) (LDQ-REF7114 ':INT32)
                              (LDZ-REF7116 ':INT32) (LWORK-REF7118 ':INT32)
                              (INFO-REF7119 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7103 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7104 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7105 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7107 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7109 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7114 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7116 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7118 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7119 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7106 H) (T-REF7108 T)
                                            (ALPHAR-REF7110 ALPHAR)
                                            (ALPHAI-REF7111 ALPHAI)
                                            (BETA-REF7112 BETA) (Q-REF7113 Q)
                                            (Z-REF7115 Z) (WORK-REF7117 WORK))
      (%%DHGEQZ JOB COMPQ COMPZ N-REF7103 ILO-REF7104 IHI-REF7105 H-REF7106
       LDH-REF7107 T-REF7108 LDT-REF7109 ALPHAR-REF7110 ALPHAI-REF7111
       BETA-REF7112 Q-REF7113 LDQ-REF7114 Z-REF7115 LDZ-REF7116 WORK-REF7117
       LWORK-REF7118 INFO-REF7119))))

(CFFI:DEFCFUN ("dhsein_" %%DHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M
                    WORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7124 ':INT32) (LDH-REF7126 ':INT32)
                              (LDVL-REF7130 ':INT32) (LDVR-REF7132 ':INT32)
                              (MM-REF7133 ':INT32) (M-REF7134 ':INT32)
                              (INFO-REF7138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7126 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7130 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7132 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7133 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7134 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7123 SELECT)
                                            (H-REF7125 H) (WR-REF7127 WR)
                                            (WI-REF7128 WI) (VL-REF7129 VL)
                                            (VR-REF7131 VR) (WORK-REF7135 WORK)
                                            (IFAILL-REF7136 IFAILL)
                                            (IFAILR-REF7137 IFAILR))
      (%%DHSEIN SIDE EIGSRC INITV SELECT-REF7123 N-REF7124 H-REF7125
       LDH-REF7126 WR-REF7127 WI-REF7128 VL-REF7129 LDVL-REF7130 VR-REF7131
       LDVR-REF7132 MM-REF7133 M-REF7134 WORK-REF7135 IFAILL-REF7136
       IFAILR-REF7137 INFO-REF7138))))

(CFFI:DEFCFUN ("dhseqr_" %%DHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHSEQR
                   (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7141 ':INT32) (ILO-REF7142 ':INT32)
                              (IHI-REF7143 ':INT32) (LDH-REF7145 ':INT32)
                              (LDZ-REF7149 ':INT32) (LWORK-REF7151 ':INT32)
                              (INFO-REF7152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7142 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7143 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7145 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7149 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7151 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7144 H) (WR-REF7146 WR)
                                            (WI-REF7147 WI) (Z-REF7148 Z)
                                            (WORK-REF7150 WORK))
      (%%DHSEQR JOB COMPZ N-REF7141 ILO-REF7142 IHI-REF7143 H-REF7144
       LDH-REF7145 WR-REF7146 WI-REF7147 Z-REF7148 LDZ-REF7149 WORK-REF7150
       LWORK-REF7151 INFO-REF7152))))

(CFFI:DEFCFUN ("disnan_" %%DISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (DIN :POINTER))

(COMMON-LISP:DEFUN %DISNAN (DIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7153 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7153 :DOUBLE) DIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DISNAN DIN-REF7153))))

(CFFI:DEFCFUN ("dla_gbamv_" %%DLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7154 ':INT32) (M-REF7155 ':INT32)
                              (N-REF7156 ':INT32) (KL-REF7157 ':INT32)
                              (KU-REF7158 ':INT32) (ALPHA-REF7159 ':DOUBLE)
                              (LDAB-REF7161 ':INT32) (INCX-REF7163 ':INT32)
                              (BETA-REF7164 ':DOUBLE) (INCY-REF7166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7154 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7155 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7157 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7158 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7159 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7161 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7163 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7164 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7166 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7160 AB) (X-REF7162 X)
                                            (Y-REF7165 Y))
      (%%DLA_GBAMV TRANS-REF7154 M-REF7155 N-REF7156 KL-REF7157 KU-REF7158
       ALPHA-REF7159 AB-REF7160 LDAB-REF7161 X-REF7162 INCX-REF7163
       BETA-REF7164 Y-REF7165 INCY-REF7166))))

(CFFI:DEFCFUN ("dla_gbrcond_" %%DLA_GBRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRCOND
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK
                    IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7168 ':INT32) (KL-REF7169 ':INT32)
                              (KU-REF7170 ':INT32) (LDAB-REF7172 ':INT32)
                              (LDAFB-REF7174 ':INT32) (CMODE-REF7176 ':INT32)
                              (INFO-REF7178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7168 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7169 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7170 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7172 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7174 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7176 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7178 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7171 AB) (AFB-REF7173 AFB)
                                            (IPIV-REF7175 IPIV) (C-REF7177 C)
                                            (WORK-REF7179 WORK)
                                            (IWORK-REF7180 IWORK))
      (%%DLA_GBRCOND TRANS N-REF7168 KL-REF7169 KU-REF7170 AB-REF7171
       LDAB-REF7172 AFB-REF7173 LDAFB-REF7174 IPIV-REF7175 CMODE-REF7176
       C-REF7177 INFO-REF7178 WORK-REF7179 IWORK-REF7180))))

(CFFI:DEFCFUN ("dla_gbrfsx_extended_" %%DLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7181 ':INT32)
                              (TRANS_TYPE-REF7182 ':INT32) (N-REF7183 ':INT32)
                              (KL-REF7184 ':INT32) (KU-REF7185 ':INT32)
                              (NRHS-REF7186 ':INT32) (LDAB-REF7188 ':INT32)
                              (LDAFB-REF7190 ':INT32) (COLEQU-REF7192 ':INT32)
                              (LDB-REF7195 ':INT32) (LDY-REF7197 ':INT32)
                              (N_NORMS-REF7199 ':INT32)
                              (RCOND-REF7206 ':DOUBLE)
                              (ITHRESH-REF7207 ':INT32)
                              (RTHRESH-REF7208 ':DOUBLE)
                              (DZ_UB-REF7209 ':DOUBLE)
                              (IGNORE_CWISE-REF7210 ':INT32)
                              (INFO-REF7211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7181 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7182 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7184 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7185 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7186 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7188 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7190 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7192 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7195 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7197 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7199 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7206 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7207 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7208 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7209 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7210 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7211 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7187 AB) (AFB-REF7189 AFB)
                                            (IPIV-REF7191 IPIV) (C-REF7193 C)
                                            (B-REF7194 B) (Y-REF7196 Y)
                                            (BERR_OUT-REF7198 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7200
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7201
                                             ERR_BNDS_COMP)
                                            (RES-REF7202 RES) (AYB-REF7203 AYB)
                                            (DY-REF7204 DY)
                                            (Y_TAIL-REF7205 Y_TAIL))
      (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF7181 TRANS_TYPE-REF7182 N-REF7183
       KL-REF7184 KU-REF7185 NRHS-REF7186 AB-REF7187 LDAB-REF7188 AFB-REF7189
       LDAFB-REF7190 IPIV-REF7191 COLEQU-REF7192 C-REF7193 B-REF7194
       LDB-REF7195 Y-REF7196 LDY-REF7197 BERR_OUT-REF7198 N_NORMS-REF7199
       ERR_BNDS_NORM-REF7200 ERR_BNDS_COMP-REF7201 RES-REF7202 AYB-REF7203
       DY-REF7204 Y_TAIL-REF7205 RCOND-REF7206 ITHRESH-REF7207 RTHRESH-REF7208
       DZ_UB-REF7209 IGNORE_CWISE-REF7210 INFO-REF7211))))

(CFFI:DEFCFUN ("dla_gbrpvgrw_" %%DLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7212 ':INT32) (KL-REF7213 ':INT32)
                              (KU-REF7214 ':INT32) (NCOLS-REF7215 ':INT32)
                              (LDAB-REF7217 ':INT32) (LDAFB-REF7219 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7212 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7213 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7214 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7215 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7217 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7219 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7216 AB) (AFB-REF7218 AFB))
      (%%DLA_GBRPVGRW N-REF7212 KL-REF7213 KU-REF7214 NCOLS-REF7215 AB-REF7216
       LDAB-REF7217 AFB-REF7218 LDAFB-REF7219))))

(CFFI:DEFCFUN ("dla_geamv_" %%DLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7220 ':INT32) (M-REF7221 ':INT32)
                              (N-REF7222 ':INT32) (ALPHA-REF7223 ':DOUBLE)
                              (LDA-REF7225 ':INT32) (INCX-REF7227 ':INT32)
                              (BETA-REF7228 ':DOUBLE) (INCY-REF7230 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7220 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7221 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7223 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7225 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7227 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7228 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7230 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7224 A) (X-REF7226 X)
                                            (Y-REF7229 Y))
      (%%DLA_GEAMV TRANS-REF7220 M-REF7221 N-REF7222 ALPHA-REF7223 A-REF7224
       LDA-REF7225 X-REF7226 INCX-REF7227 BETA-REF7228 Y-REF7229
       INCY-REF7230))))

(CFFI:DEFCFUN ("dla_gercond_" %%DLA_GERCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_GERCOND
                   (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7232 ':INT32) (LDA-REF7234 ':INT32)
                              (LDAF-REF7236 ':INT32) (CMODE-REF7238 ':INT32)
                              (INFO-REF7240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7236 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7238 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7240 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7233 A) (AF-REF7235 AF)
                                            (IPIV-REF7237 IPIV) (C-REF7239 C)
                                            (WORK-REF7241 WORK)
                                            (IWORK-REF7242 IWORK))
      (%%DLA_GERCOND TRANS N-REF7232 A-REF7233 LDA-REF7234 AF-REF7235
       LDAF-REF7236 IPIV-REF7237 CMODE-REF7238 C-REF7239 INFO-REF7240
       WORK-REF7241 IWORK-REF7242))))

(CFFI:DEFCFUN ("dla_gerfsx_extended_" %%DLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7243 ':INT32)
                              (TRANS_TYPE-REF7244 ':INT32) (N-REF7245 ':INT32)
                              (NRHS-REF7246 ':INT32) (LDA-REF7248 ':INT32)
                              (LDAF-REF7250 ':INT32) (COLEQU-REF7252 ':INT32)
                              (LDB-REF7255 ':INT32) (LDY-REF7257 ':INT32)
                              (N_NORMS-REF7259 ':INT32)
                              (RCOND-REF7266 ':DOUBLE)
                              (ITHRESH-REF7267 ':INT32)
                              (RTHRESH-REF7268 ':DOUBLE)
                              (DZ_UB-REF7269 ':DOUBLE)
                              (IGNORE_CWISE-REF7270 ':INT32)
                              (INFO-REF7271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7243 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7244 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7245 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7246 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7248 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7250 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7252 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7255 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7257 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7259 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7266 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7267 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7268 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7269 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7270 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7247 A) (AF-REF7249 AF)
                                            (IPIV-REF7251 IPIV) (C-REF7253 C)
                                            (B-REF7254 B) (Y-REF7256 Y)
                                            (BERR_OUT-REF7258 BERR_OUT)
                                            (ERRS_N-REF7260 ERRS_N)
                                            (ERRS_C-REF7261 ERRS_C)
                                            (RES-REF7262 RES) (AYB-REF7263 AYB)
                                            (DY-REF7264 DY)
                                            (Y_TAIL-REF7265 Y_TAIL))
      (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF7243 TRANS_TYPE-REF7244 N-REF7245
       NRHS-REF7246 A-REF7247 LDA-REF7248 AF-REF7249 LDAF-REF7250 IPIV-REF7251
       COLEQU-REF7252 C-REF7253 B-REF7254 LDB-REF7255 Y-REF7256 LDY-REF7257
       BERR_OUT-REF7258 N_NORMS-REF7259 ERRS_N-REF7260 ERRS_C-REF7261
       RES-REF7262 AYB-REF7263 DY-REF7264 Y_TAIL-REF7265 RCOND-REF7266
       ITHRESH-REF7267 RTHRESH-REF7268 DZ_UB-REF7269 IGNORE_CWISE-REF7270
       INFO-REF7271))))

(CFFI:DEFCFUN ("dla_gerpvgrw_" %%DLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %DLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7272 ':INT32) (NCOLS-REF7273 ':INT32)
                              (LDA-REF7275 ':INT32) (LDAF-REF7277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7272 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7273 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7275 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7277 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7274 A) (AF-REF7276 AF))
      (%%DLA_GERPVGRW N-REF7272 NCOLS-REF7273 A-REF7274 LDA-REF7275 AF-REF7276
       LDAF-REF7277))))

(CFFI:DEFCFUN ("dla_lin_berr_" %%DLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %DLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7278 ':INT32) (NZ-REF7279 ':INT32)
                              (NRHS-REF7280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF7279 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7280 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF7281 RES) (AYB-REF7282 AYB)
                                            (BERR-REF7283 BERR))
      (%%DLA_LIN_BERR N-REF7278 NZ-REF7279 NRHS-REF7280 RES-REF7281 AYB-REF7282
       BERR-REF7283))))

(CFFI:DEFCFUN ("dla_porcond_" %%DLA_PORCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_PORCOND (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7285 ':INT32) (LDA-REF7287 ':INT32)
                              (LDAF-REF7289 ':INT32) (CMODE-REF7290 ':INT32)
                              (INFO-REF7292 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7289 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7290 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7292 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7286 A) (AF-REF7288 AF)
                                            (C-REF7291 C) (WORK-REF7293 WORK)
                                            (IWORK-REF7294 IWORK))
      (%%DLA_PORCOND UPLO N-REF7285 A-REF7286 LDA-REF7287 AF-REF7288
       LDAF-REF7289 CMODE-REF7290 C-REF7291 INFO-REF7292 WORK-REF7293
       IWORK-REF7294))))

(CFFI:DEFCFUN ("dla_porfsx_extended_" %%DLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7295 ':INT32) (N-REF7297 ':INT32)
                              (NRHS-REF7298 ':INT32) (LDA-REF7300 ':INT32)
                              (LDAF-REF7302 ':INT32) (COLEQU-REF7303 ':INT32)
                              (LDB-REF7306 ':INT32) (LDY-REF7308 ':INT32)
                              (N_NORMS-REF7310 ':INT32)
                              (RCOND-REF7317 ':DOUBLE)
                              (ITHRESH-REF7318 ':INT32)
                              (RTHRESH-REF7319 ':DOUBLE)
                              (DZ_UB-REF7320 ':DOUBLE)
                              (IGNORE_CWISE-REF7321 ':INT32)
                              (INFO-REF7322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7295 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7297 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7298 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7300 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7302 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7303 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7306 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7308 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7310 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7317 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7318 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7319 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7320 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7321 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7299 A) (AF-REF7301 AF)
                                            (C-REF7304 C) (B-REF7305 B)
                                            (Y-REF7307 Y)
                                            (BERR_OUT-REF7309 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7311
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7312
                                             ERR_BNDS_COMP)
                                            (RES-REF7313 RES) (AYB-REF7314 AYB)
                                            (DY-REF7315 DY)
                                            (Y_TAIL-REF7316 Y_TAIL))
      (%%DLA_PORFSX_EXTENDED PREC_TYPE-REF7295 UPLO N-REF7297 NRHS-REF7298
       A-REF7299 LDA-REF7300 AF-REF7301 LDAF-REF7302 COLEQU-REF7303 C-REF7304
       B-REF7305 LDB-REF7306 Y-REF7307 LDY-REF7308 BERR_OUT-REF7309
       N_NORMS-REF7310 ERR_BNDS_NORM-REF7311 ERR_BNDS_COMP-REF7312 RES-REF7313
       AYB-REF7314 DY-REF7315 Y_TAIL-REF7316 RCOND-REF7317 ITHRESH-REF7318
       RTHRESH-REF7319 DZ_UB-REF7320 IGNORE_CWISE-REF7321 INFO-REF7322))))

(CFFI:DEFCFUN ("dla_porpvgrw_" %%DLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF7324 ':INT32) (LDA-REF7326 ':INT32)
                              (LDAF-REF7328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7324 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7326 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7328 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7325 A) (AF-REF7327 AF)
                                            (WORK-REF7329 WORK))
      (%%DLA_PORPVGRW UPLO NCOLS-REF7324 A-REF7325 LDA-REF7326 AF-REF7327
       LDAF-REF7328 WORK-REF7329))))

(CFFI:DEFCFUN ("dla_syamv_" %%DLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF7330 ':INT32) (N-REF7331 ':INT32)
                              (ALPHA-REF7332 ':DOUBLE) (LDA-REF7334 ':INT32)
                              (INCX-REF7336 ':INT32) (BETA-REF7337 ':DOUBLE)
                              (INCY-REF7339 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF7330 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7331 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7332 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7334 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7336 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7337 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7339 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7333 A) (X-REF7335 X)
                                            (Y-REF7338 Y))
      (%%DLA_SYAMV UPLO-REF7330 N-REF7331 ALPHA-REF7332 A-REF7333 LDA-REF7334
       X-REF7335 INCX-REF7336 BETA-REF7337 Y-REF7338 INCY-REF7339))))

(CFFI:DEFCFUN ("dla_syrcond_" %%DLA_SYRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRCOND
                   (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7341 ':INT32) (LDA-REF7343 ':INT32)
                              (LDAF-REF7345 ':INT32) (CMODE-REF7347 ':INT32)
                              (INFO-REF7349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7341 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7343 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7345 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7347 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7342 A) (AF-REF7344 AF)
                                            (IPIV-REF7346 IPIV) (C-REF7348 C)
                                            (WORK-REF7350 WORK)
                                            (IWORK-REF7351 IWORK))
      (%%DLA_SYRCOND UPLO N-REF7341 A-REF7342 LDA-REF7343 AF-REF7344
       LDAF-REF7345 IPIV-REF7346 CMODE-REF7347 C-REF7348 INFO-REF7349
       WORK-REF7350 IWORK-REF7351))))

(CFFI:DEFCFUN ("dla_syrfsx_extended_" %%DLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7352 ':INT32) (N-REF7354 ':INT32)
                              (NRHS-REF7355 ':INT32) (LDA-REF7357 ':INT32)
                              (LDAF-REF7359 ':INT32) (COLEQU-REF7361 ':INT32)
                              (LDB-REF7364 ':INT32) (LDY-REF7366 ':INT32)
                              (N_NORMS-REF7368 ':INT32)
                              (RCOND-REF7375 ':DOUBLE)
                              (ITHRESH-REF7376 ':INT32)
                              (RTHRESH-REF7377 ':DOUBLE)
                              (DZ_UB-REF7378 ':DOUBLE)
                              (IGNORE_CWISE-REF7379 ':INT32)
                              (INFO-REF7380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7352 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7355 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7357 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7359 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7361 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7364 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7366 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7368 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7375 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7376 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7377 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7378 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7379 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7356 A) (AF-REF7358 AF)
                                            (IPIV-REF7360 IPIV) (C-REF7362 C)
                                            (B-REF7363 B) (Y-REF7365 Y)
                                            (BERR_OUT-REF7367 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7369
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7370
                                             ERR_BNDS_COMP)
                                            (RES-REF7371 RES) (AYB-REF7372 AYB)
                                            (DY-REF7373 DY)
                                            (Y_TAIL-REF7374 Y_TAIL))
      (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF7352 UPLO N-REF7354 NRHS-REF7355
       A-REF7356 LDA-REF7357 AF-REF7358 LDAF-REF7359 IPIV-REF7360
       COLEQU-REF7361 C-REF7362 B-REF7363 LDB-REF7364 Y-REF7365 LDY-REF7366
       BERR_OUT-REF7367 N_NORMS-REF7368 ERR_BNDS_NORM-REF7369
       ERR_BNDS_COMP-REF7370 RES-REF7371 AYB-REF7372 DY-REF7373 Y_TAIL-REF7374
       RCOND-REF7375 ITHRESH-REF7376 RTHRESH-REF7377 DZ_UB-REF7378
       IGNORE_CWISE-REF7379 INFO-REF7380))))

(CFFI:DEFCFUN ("dla_syrpvgrw_" %%DLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7382 ':INT32) (INFO-REF7383 ':INT32)
                              (LDA-REF7385 ':INT32) (LDAF-REF7387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7382 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7383 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7385 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7387 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7384 A) (AF-REF7386 AF)
                                            (IPIV-REF7388 IPIV)
                                            (WORK-REF7389 WORK))
      (%%DLA_SYRPVGRW UPLO N-REF7382 INFO-REF7383 A-REF7384 LDA-REF7385
       AF-REF7386 LDAF-REF7387 IPIV-REF7388 WORK-REF7389))))

(CFFI:DEFCFUN ("dla_wwaddw_" %%DLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %DLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7390 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7390 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7391 X) (Y-REF7392 Y)
                                            (W-REF7393 W))
      (%%DLA_WWADDW N-REF7390 X-REF7391 Y-REF7392 W-REF7393))))

(CFFI:DEFCFUN ("dlabad_" %%DLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SMALL :POINTER)
  (LARGE :POINTER))

(COMMON-LISP:DEFUN %DLABAD (SMALL LARGE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABAD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMALL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LARGE))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF7394 ':DOUBLE) (LARGE-REF7395 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF7394 :DOUBLE) SMALL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF7395 :DOUBLE) LARGE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLABAD SMALL-REF7394 LARGE-REF7395))))

(CFFI:DEFCFUN ("dlabrd_" %%DLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %DLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7396 ':INT32) (N-REF7397 ':INT32)
                              (NB-REF7398 ':INT32) (LDA-REF7400 ':INT32)
                              (LDX-REF7406 ':INT32) (LDY-REF7408 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7396 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7398 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7400 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7406 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7408 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7399 A) (D-REF7401 D)
                                            (E-REF7402 E) (TAUQ-REF7403 TAUQ)
                                            (TAUP-REF7404 TAUP) (X-REF7405 X)
                                            (Y-REF7407 Y))
      (%%DLABRD M-REF7396 N-REF7397 NB-REF7398 A-REF7399 LDA-REF7400 D-REF7401
       E-REF7402 TAUQ-REF7403 TAUP-REF7404 X-REF7405 LDX-REF7406 Y-REF7407
       LDY-REF7408))))

(CFFI:DEFCFUN ("dlacn2_" %%DLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %DLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7409 ':INT32) (EST-REF7413 ':DOUBLE)
                              (KASE-REF7414 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7413 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7414 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7410 V) (X-REF7411 X)
                                            (ISGN-REF7412 ISGN)
                                            (ISAVE-REF7415 ISAVE))
      (%%DLACN2 N-REF7409 V-REF7410 X-REF7411 ISGN-REF7412 EST-REF7413
       KASE-REF7414 ISAVE-REF7415))))

(CFFI:DEFCFUN ("dlacon_" %%DLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %DLACON (N V X ISGN EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7416 ':INT32) (EST-REF7420 ':DOUBLE)
                              (KASE-REF7421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7416 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7420 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7421 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7417 V) (X-REF7418 X)
                                            (ISGN-REF7419 ISGN))
      (%%DLACON N-REF7416 V-REF7417 X-REF7418 ISGN-REF7419 EST-REF7420
       KASE-REF7421))))

(CFFI:DEFCFUN ("dlacpy_" %%DLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7423 ':INT32) (N-REF7424 ':INT32)
                              (LDA-REF7426 ':INT32) (LDB-REF7428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7423 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7424 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7426 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7428 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7425 A) (B-REF7427 B))
      (%%DLACPY UPLO M-REF7423 N-REF7424 A-REF7425 LDA-REF7426 B-REF7427
       LDB-REF7428))))

(CFFI:DEFCFUN ("dladiv_" %%DLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (P :POINTER)
  (Q :POINTER))

(COMMON-LISP:DEFUN %DLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLADIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT P)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7429 ':DOUBLE) (B-REF7430 ':DOUBLE)
                              (C-REF7431 ':DOUBLE) (D-REF7432 ':DOUBLE)
                              (P-REF7433 ':DOUBLE) (Q-REF7434 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7429 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7430 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7431 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7432 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7433 :DOUBLE) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7434 :DOUBLE) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLADIV A-REF7429 B-REF7430 C-REF7431 D-REF7432 P-REF7433 Q-REF7434))))

(CFFI:DEFCFUN ("dlae2_" %%DLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER))

(COMMON-LISP:DEFUN %DLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAE2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7435 ':DOUBLE) (B-REF7436 ':DOUBLE)
                              (C-REF7437 ':DOUBLE) (RT1-REF7438 ':DOUBLE)
                              (RT2-REF7439 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7435 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7436 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7437 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7438 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7439 :DOUBLE) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAE2 A-REF7435 B-REF7436 C-REF7437 RT1-REF7438 RT2-REF7439))))

(CFFI:DEFCFUN ("dlaebz_" %%DLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (NITMAX :POINTER)
  (N :POINTER)
  (MMAX :POINTER)
  (MINP :POINTER)
  (NBMIN :POINTER)
  (ABSTOL :POINTER)
  (RELTOL :POINTER)
  (PIVMIN :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (NVAL :POINTER)
  (AB :POINTER)
  (C :POINTER)
  (MOUT :POINTER)
  (NAB :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEBZ
                   (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2
                    NVAL AB C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NVAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7440 ':INT32) (NITMAX-REF7441 ':INT32)
                              (N-REF7442 ':INT32) (MMAX-REF7443 ':INT32)
                              (MINP-REF7444 ':INT32) (NBMIN-REF7445 ':INT32)
                              (ABSTOL-REF7446 ':DOUBLE)
                              (RELTOL-REF7447 ':DOUBLE)
                              (PIVMIN-REF7448 ':DOUBLE) (MOUT-REF7455 ':INT32)
                              (INFO-REF7459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7440 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7441 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7442 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7443 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7444 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7445 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7446 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7447 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7448 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7455 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7459 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7449 D) (E-REF7450 E)
                                            (E2-REF7451 E2) (NVAL-REF7452 NVAL)
                                            (AB-REF7453 AB) (C-REF7454 C)
                                            (NAB-REF7456 NAB)
                                            (WORK-REF7457 WORK)
                                            (IWORK-REF7458 IWORK))
      (%%DLAEBZ IJOB-REF7440 NITMAX-REF7441 N-REF7442 MMAX-REF7443 MINP-REF7444
       NBMIN-REF7445 ABSTOL-REF7446 RELTOL-REF7447 PIVMIN-REF7448 D-REF7449
       E-REF7450 E2-REF7451 NVAL-REF7452 AB-REF7453 C-REF7454 MOUT-REF7455
       NAB-REF7456 WORK-REF7457 IWORK-REF7458 INFO-REF7459))))

(CFFI:DEFCFUN ("dlaed0_" %%DLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED0
                   (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7460 ':INT32) (QSIZ-REF7461 ':INT32)
                              (N-REF7462 ':INT32) (LDQ-REF7466 ':INT32)
                              (LDQS-REF7468 ':INT32) (INFO-REF7471 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7460 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7461 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7466 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF7468 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7471 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7463 D) (E-REF7464 E)
                                            (Q-REF7465 Q)
                                            (QSTORE-REF7467 QSTORE)
                                            (WORK-REF7469 WORK)
                                            (IWORK-REF7470 IWORK))
      (%%DLAED0 ICOMPQ-REF7460 QSIZ-REF7461 N-REF7462 D-REF7463 E-REF7464
       Q-REF7465 LDQ-REF7466 QSTORE-REF7467 LDQS-REF7468 WORK-REF7469
       IWORK-REF7470 INFO-REF7471))))

(CFFI:DEFCFUN ("dlaed1_" %%DLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7472 ':INT32) (LDQ-REF7475 ':INT32)
                              (RHO-REF7477 ':DOUBLE) (CUTPNT-REF7478 ':INT32)
                              (INFO-REF7481 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7475 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7477 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7478 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7481 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7473 D) (Q-REF7474 Q)
                                            (INDXQ-REF7476 INDXQ)
                                            (WORK-REF7479 WORK)
                                            (IWORK-REF7480 IWORK))
      (%%DLAED1 N-REF7472 D-REF7473 Q-REF7474 LDQ-REF7475 INDXQ-REF7476
       RHO-REF7477 CUTPNT-REF7478 WORK-REF7479 IWORK-REF7480 INFO-REF7481))))

(CFFI:DEFCFUN ("dlaed2_" %%DLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (INDXC :POINTER)
  (INDXP :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED2
                   (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP
                    COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7482 ':INT32) (N-REF7483 ':INT32)
                              (N1-REF7484 ':INT32) (LDQ-REF7487 ':INT32)
                              (RHO-REF7489 ':DOUBLE) (INFO-REF7498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7482 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7483 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7484 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7487 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7489 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7485 D) (Q-REF7486 Q)
                                            (INDXQ-REF7488 INDXQ) (Z-REF7490 Z)
                                            (DLAMDA-REF7491 DLAMDA)
                                            (W-REF7492 W) (Q2-REF7493 Q2)
                                            (INDX-REF7494 INDX)
                                            (INDXC-REF7495 INDXC)
                                            (INDXP-REF7496 INDXP)
                                            (COLTYP-REF7497 COLTYP))
      (%%DLAED2 K-REF7482 N-REF7483 N1-REF7484 D-REF7485 Q-REF7486 LDQ-REF7487
       INDXQ-REF7488 RHO-REF7489 Z-REF7490 DLAMDA-REF7491 W-REF7492 Q2-REF7493
       INDX-REF7494 INDXC-REF7495 INDXP-REF7496 COLTYP-REF7497 INFO-REF7498))))

(CFFI:DEFCFUN ("dlaed3_" %%DLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (CTOT :POINTER)
  (W :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED3 (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7499 ':INT32) (N-REF7500 ':INT32)
                              (N1-REF7501 ':INT32) (LDQ-REF7504 ':INT32)
                              (RHO-REF7505 ':DOUBLE) (INFO-REF7512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7499 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7501 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7504 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7505 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7512 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7502 D) (Q-REF7503 Q)
                                            (DLAMDA-REF7506 DLAMDA)
                                            (Q2-REF7507 Q2) (INDX-REF7508 INDX)
                                            (CTOT-REF7509 CTOT) (W-REF7510 W)
                                            (S-REF7511 S))
      (%%DLAED3 K-REF7499 N-REF7500 N1-REF7501 D-REF7502 Q-REF7503 LDQ-REF7504
       RHO-REF7505 DLAMDA-REF7506 Q2-REF7507 INDX-REF7508 CTOT-REF7509
       W-REF7510 S-REF7511 INFO-REF7512))))

(CFFI:DEFCFUN ("dlaed4_" %%DLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED4 (N I D Z DELTA RHO DLAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7513 ':INT32) (I-REF7514 ':INT32)
                              (RHO-REF7518 ':DOUBLE) (DLAM-REF7519 ':DOUBLE)
                              (INFO-REF7520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7513 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7514 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7518 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7519 :DOUBLE) DLAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7515 D) (Z-REF7516 Z)
                                            (DELTA-REF7517 DELTA))
      (%%DLAED4 N-REF7513 I-REF7514 D-REF7515 Z-REF7516 DELTA-REF7517
       RHO-REF7518 DLAM-REF7519 INFO-REF7520))))

(CFFI:DEFCFUN ("dlaed5_" %%DLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER))

(COMMON-LISP:DEFUN %DLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF7521 ':INT32) (RHO-REF7525 ':DOUBLE)
                              (DLAM-REF7526 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7521 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7525 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7526 :DOUBLE) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7522 D) (Z-REF7523 Z)
                                            (DELTA-REF7524 DELTA))
      (%%DLAED5 I-REF7521 D-REF7522 Z-REF7523 DELTA-REF7524 RHO-REF7525
       DLAM-REF7526))))

(CFFI:DEFCFUN ("dlaed6_" %%DLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (KNITER :POINTER)
  (ORGATI :POINTER)
  (RHO :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (FINIT :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT FINIT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF7527 ':INT32) (ORGATI-REF7528 ':INT32)
                              (RHO-REF7529 ':DOUBLE) (FINIT-REF7532 ':DOUBLE)
                              (TAU-REF7533 ':DOUBLE) (INFO-REF7534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF7527 :INT32) KNITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF7528 :INT32) ORGATI)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7529 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF7532 :DOUBLE) FINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7533 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7530 D) (Z-REF7531 Z))
      (%%DLAED6 KNITER-REF7527 ORGATI-REF7528 RHO-REF7529 D-REF7530 Z-REF7531
       FINIT-REF7532 TAU-REF7533 INFO-REF7534))))

(CFFI:DEFCFUN ("dlaed7_" %%DLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED7
                   (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT
                    QSTORE QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7535 ':INT32) (N-REF7536 ':INT32)
                              (QSIZ-REF7537 ':INT32) (TLVLS-REF7538 ':INT32)
                              (CURLVL-REF7539 ':INT32) (CURPBM-REF7540 ':INT32)
                              (LDQ-REF7543 ':INT32) (RHO-REF7545 ':DOUBLE)
                              (CUTPNT-REF7546 ':INT32) (INFO-REF7556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7535 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7536 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7537 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7538 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7539 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7540 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7543 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7545 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7546 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7541 D) (Q-REF7542 Q)
                                            (INDXQ-REF7544 INDXQ)
                                            (QSTORE-REF7547 QSTORE)
                                            (QPTR-REF7548 QPTR)
                                            (PRMPTR-REF7549 PRMPTR)
                                            (PERM-REF7550 PERM)
                                            (GIVPTR-REF7551 GIVPTR)
                                            (GIVCOL-REF7552 GIVCOL)
                                            (GIVNUM-REF7553 GIVNUM)
                                            (WORK-REF7554 WORK)
                                            (IWORK-REF7555 IWORK))
      (%%DLAED7 ICOMPQ-REF7535 N-REF7536 QSIZ-REF7537 TLVLS-REF7538
       CURLVL-REF7539 CURPBM-REF7540 D-REF7541 Q-REF7542 LDQ-REF7543
       INDXQ-REF7544 RHO-REF7545 CUTPNT-REF7546 QSTORE-REF7547 QPTR-REF7548
       PRMPTR-REF7549 PERM-REF7550 GIVPTR-REF7551 GIVCOL-REF7552 GIVNUM-REF7553
       WORK-REF7554 IWORK-REF7555 INFO-REF7556))))

(CFFI:DEFCFUN ("dlaed8_" %%DLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED8
                   (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W
                    PERM GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7557 ':INT32) (K-REF7558 ':INT32)
                              (N-REF7559 ':INT32) (QSIZ-REF7560 ':INT32)
                              (LDQ-REF7563 ':INT32) (RHO-REF7565 ':DOUBLE)
                              (CUTPNT-REF7566 ':INT32) (LDQ2-REF7570 ':INT32)
                              (GIVPTR-REF7573 ':INT32) (INFO-REF7578 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7557 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7558 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7559 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7560 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7563 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7565 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7566 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7570 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7573 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7578 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7561 D) (Q-REF7562 Q)
                                            (INDXQ-REF7564 INDXQ) (Z-REF7567 Z)
                                            (DLAMDA-REF7568 DLAMDA)
                                            (Q2-REF7569 Q2) (W-REF7571 W)
                                            (PERM-REF7572 PERM)
                                            (GIVCOL-REF7574 GIVCOL)
                                            (GIVNUM-REF7575 GIVNUM)
                                            (INDXP-REF7576 INDXP)
                                            (INDX-REF7577 INDX))
      (%%DLAED8 ICOMPQ-REF7557 K-REF7558 N-REF7559 QSIZ-REF7560 D-REF7561
       Q-REF7562 LDQ-REF7563 INDXQ-REF7564 RHO-REF7565 CUTPNT-REF7566 Z-REF7567
       DLAMDA-REF7568 Q2-REF7569 LDQ2-REF7570 W-REF7571 PERM-REF7572
       GIVPTR-REF7573 GIVCOL-REF7574 GIVNUM-REF7575 INDXP-REF7576 INDX-REF7577
       INFO-REF7578))))

(CFFI:DEFCFUN ("dlaed9_" %%DLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (K :POINTER)
  (KSTART :POINTER)
  (KSTOP :POINTER)
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED9 (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED9)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7579 ':INT32) (KSTART-REF7580 ':INT32)
                              (KSTOP-REF7581 ':INT32) (N-REF7582 ':INT32)
                              (LDQ-REF7585 ':INT32) (RHO-REF7586 ':DOUBLE)
                              (LDS-REF7590 ':INT32) (INFO-REF7591 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7579 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF7580 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF7581 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7585 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7586 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF7590 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7591 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7583 D) (Q-REF7584 Q)
                                            (DLAMDA-REF7587 DLAMDA)
                                            (W-REF7588 W) (S-REF7589 S))
      (%%DLAED9 K-REF7579 KSTART-REF7580 KSTOP-REF7581 N-REF7582 D-REF7583
       Q-REF7584 LDQ-REF7585 RHO-REF7586 DLAMDA-REF7587 W-REF7588 S-REF7589
       LDS-REF7590 INFO-REF7591))))

(CFFI:DEFCFUN ("dlaeda_" %%DLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (Q :POINTER)
  (QPTR :POINTER)
  (Z :POINTER)
  (ZTEMP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEDA
                   (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q
                    QPTR Z ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ZTEMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7592 ':INT32) (TLVLS-REF7593 ':INT32)
                              (CURLVL-REF7594 ':INT32) (CURPBM-REF7595 ':INT32)
                              (INFO-REF7605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7593 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7594 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7595 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7596 PRMPTR)
                                            (PERM-REF7597 PERM)
                                            (GIVPTR-REF7598 GIVPTR)
                                            (GIVCOL-REF7599 GIVCOL)
                                            (GIVNUM-REF7600 GIVNUM)
                                            (Q-REF7601 Q) (QPTR-REF7602 QPTR)
                                            (Z-REF7603 Z) (ZTEMP-REF7604 ZTEMP))
      (%%DLAEDA N-REF7592 TLVLS-REF7593 CURLVL-REF7594 CURPBM-REF7595
       PRMPTR-REF7596 PERM-REF7597 GIVPTR-REF7598 GIVCOL-REF7599 GIVNUM-REF7600
       Q-REF7601 QPTR-REF7602 Z-REF7603 ZTEMP-REF7604 INFO-REF7605))))

(CFFI:DEFCFUN ("dlaein_" %%DLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VR :POINTER)
  (VI :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (BIGNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEIN
                   (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM
                    BIGNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BIGNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF7606 ':INT32) (NOINIT-REF7607 ':INT32)
                              (N-REF7608 ':INT32) (LDH-REF7610 ':INT32)
                              (WR-REF7611 ':DOUBLE) (WI-REF7612 ':DOUBLE)
                              (LDB-REF7616 ':INT32) (EPS3-REF7618 ':DOUBLE)
                              (SMLNUM-REF7619 ':DOUBLE)
                              (BIGNUM-REF7620 ':DOUBLE) (INFO-REF7621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF7606 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF7607 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7608 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7610 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7611 :DOUBLE) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7612 :DOUBLE) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7616 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF7618 :DOUBLE) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF7619 :DOUBLE) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF7620 :DOUBLE) BIGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7609 H) (VR-REF7613 VR)
                                            (VI-REF7614 VI) (B-REF7615 B)
                                            (WORK-REF7617 WORK))
      (%%DLAEIN RIGHTV-REF7606 NOINIT-REF7607 N-REF7608 H-REF7609 LDH-REF7610
       WR-REF7611 WI-REF7612 VR-REF7613 VI-REF7614 B-REF7615 LDB-REF7616
       WORK-REF7617 EPS3-REF7618 SMLNUM-REF7619 BIGNUM-REF7620 INFO-REF7621))))

(CFFI:DEFCFUN ("dlaev2_" %%DLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %DLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7622 ':DOUBLE) (B-REF7623 ':DOUBLE)
                              (C-REF7624 ':DOUBLE) (RT1-REF7625 ':DOUBLE)
                              (RT2-REF7626 ':DOUBLE) (CS1-REF7627 ':DOUBLE)
                              (SN1-REF7628 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7622 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7623 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7624 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7625 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7626 :DOUBLE) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF7627 :DOUBLE) CS1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF7628 :DOUBLE) SN1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAEV2 A-REF7622 B-REF7623 C-REF7624 RT1-REF7625 RT2-REF7626
       CS1-REF7627 SN1-REF7628))))

(CFFI:DEFCFUN ("dlaexc_" %%DLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF7629 ':INT32) (N-REF7630 ':INT32)
                              (LDT-REF7632 ':INT32) (LDQ-REF7634 ':INT32)
                              (J1-REF7635 ':INT32) (N1-REF7636 ':INT32)
                              (N2-REF7637 ':INT32) (INFO-REF7639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF7629 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7632 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7634 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF7635 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7636 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7637 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7639 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF7631 T) (Q-REF7633 Q)
                                            (WORK-REF7638 WORK))
      (%%DLAEXC WANTQ-REF7629 N-REF7630 T-REF7631 LDT-REF7632 Q-REF7633
       LDQ-REF7634 J1-REF7635 N1-REF7636 N2-REF7637 WORK-REF7638
       INFO-REF7639))))

(CFFI:DEFCFUN ("dlag2_" %%DLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SAFMIN :POINTER)
  (SCALE1 :POINTER)
  (SCALE2 :POINTER)
  (WR1 :POINTER)
  (WR2 :POINTER)
  (WI :POINTER))

(COMMON-LISP:DEFUN %DLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SAFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7641 ':INT32) (LDB-REF7643 ':INT32)
                              (SAFMIN-REF7644 ':DOUBLE)
                              (SCALE1-REF7645 ':DOUBLE)
                              (SCALE2-REF7646 ':DOUBLE) (WR1-REF7647 ':DOUBLE)
                              (WR2-REF7648 ':DOUBLE) (WI-REF7649 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7641 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7643 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF7644 :DOUBLE) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF7645 :DOUBLE) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF7646 :DOUBLE) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF7647 :DOUBLE) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF7648 :DOUBLE) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7649 :DOUBLE) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7640 A) (B-REF7642 B))
      (%%DLAG2 A-REF7640 LDA-REF7641 B-REF7642 LDB-REF7643 SAFMIN-REF7644
       SCALE1-REF7645 SCALE2-REF7646 WR1-REF7647 WR2-REF7648 WI-REF7649))))

(CFFI:DEFCFUN ("dlag2s_" %%DLAG2S :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAG2S (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7650 ':INT32) (N-REF7651 ':INT32)
                              (LDA-REF7653 ':INT32) (LDSA-REF7655 ':INT32)
                              (INFO-REF7656 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7650 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7651 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7653 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7655 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7656 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7652 A) (SA-REF7654 SA))
      (%%DLAG2S M-REF7650 N-REF7651 A-REF7652 LDA-REF7653 SA-REF7654
       LDSA-REF7655 INFO-REF7656))))

(CFFI:DEFCFUN ("dlags2_" %%DLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %DLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF7657 ':INT32) (A1-REF7658 ':DOUBLE)
                              (A2-REF7659 ':DOUBLE) (A3-REF7660 ':DOUBLE)
                              (B1-REF7661 ':DOUBLE) (B2-REF7662 ':DOUBLE)
                              (B3-REF7663 ':DOUBLE) (CSU-REF7664 ':DOUBLE)
                              (SNU-REF7665 ':DOUBLE) (CSV-REF7666 ':DOUBLE)
                              (SNV-REF7667 ':DOUBLE) (CSQ-REF7668 ':DOUBLE)
                              (SNQ-REF7669 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF7657 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF7658 :DOUBLE) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF7659 :DOUBLE) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF7660 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF7661 :DOUBLE) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF7662 :DOUBLE) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF7663 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF7664 :DOUBLE) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF7665 :DOUBLE) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF7666 :DOUBLE) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF7667 :DOUBLE) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF7668 :DOUBLE) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF7669 :DOUBLE) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAGS2 UPPER-REF7657 A1-REF7658 A2-REF7659 A3-REF7660 B1-REF7661
       B2-REF7662 B3-REF7663 CSU-REF7664 SNU-REF7665 CSV-REF7666 SNV-REF7667
       CSQ-REF7668 SNQ-REF7669))))

(CFFI:DEFCFUN ("dlagtf_" %%DLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LAMBDA :POINTER)
  (B :POINTER)
  (C :POINTER)
  (TOL :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7670 ':INT32) (LAMBDA-REF7672 ':DOUBLE)
                              (TOL-REF7675 ':DOUBLE) (INFO-REF7678 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF7672 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7675 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7678 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7671 A) (B-REF7673 B)
                                            (C-REF7674 C) (D-REF7676 D)
                                            (IN-REF7677 IN))
      (%%DLAGTF N-REF7670 A-REF7671 LAMBDA-REF7672 B-REF7673 C-REF7674
       TOL-REF7675 D-REF7676 IN-REF7677 INFO-REF7678))))

(CFFI:DEFCFUN ("dlagtm_" %%DLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7680 ':INT32) (NRHS-REF7681 ':INT32)
                              (ALPHA-REF7682 ':DOUBLE) (LDX-REF7687 ':INT32)
                              (BETA-REF7688 ':DOUBLE) (LDB-REF7690 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7680 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7681 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7682 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7687 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7688 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7690 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7683 DL) (D-REF7684 D)
                                            (DU-REF7685 DU) (X-REF7686 X)
                                            (B-REF7689 B))
      (%%DLAGTM TRANS N-REF7680 NRHS-REF7681 ALPHA-REF7682 DL-REF7683 D-REF7684
       DU-REF7685 X-REF7686 LDX-REF7687 BETA-REF7688 B-REF7689 LDB-REF7690))))

(CFFI:DEFCFUN ("dlagts_" %%DLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (N :POINTER)
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (Y :POINTER)
  (TOL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7691 ':INT32) (N-REF7692 ':INT32)
                              (TOL-REF7699 ':DOUBLE) (INFO-REF7700 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7691 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7699 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7700 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7693 A) (B-REF7694 B)
                                            (C-REF7695 C) (D-REF7696 D)
                                            (IN-REF7697 IN) (Y-REF7698 Y))
      (%%DLAGTS JOB-REF7691 N-REF7692 A-REF7693 B-REF7694 C-REF7695 D-REF7696
       IN-REF7697 Y-REF7698 TOL-REF7699 INFO-REF7700))))

(CFFI:DEFCFUN ("dlagv2_" %%DLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (CSL :POINTER)
  (SNL :POINTER)
  (CSR :POINTER)
  (SNR :POINTER))

(COMMON-LISP:DEFUN %DLAGV2 (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7702 ':INT32) (LDB-REF7704 ':INT32)
                              (CSL-REF7708 ':DOUBLE) (SNL-REF7709 ':DOUBLE)
                              (CSR-REF7710 ':DOUBLE) (SNR-REF7711 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7702 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7704 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF7708 :DOUBLE) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF7709 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF7710 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF7711 :DOUBLE) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7701 A) (B-REF7703 B)
                                            (ALPHAR-REF7705 ALPHAR)
                                            (ALPHAI-REF7706 ALPHAI)
                                            (BETA-REF7707 BETA))
      (%%DLAGV2 A-REF7701 LDA-REF7702 B-REF7703 LDB-REF7704 ALPHAR-REF7705
       ALPHAI-REF7706 BETA-REF7707 CSL-REF7708 SNL-REF7709 CSR-REF7710
       SNR-REF7711))))

(CFFI:DEFCFUN ("dlahqr_" %%DLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAHQR
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7712 ':INT32) (WANTZ-REF7713 ':INT32)
                              (N-REF7714 ':INT32) (ILO-REF7715 ':INT32)
                              (IHI-REF7716 ':INT32) (LDH-REF7718 ':INT32)
                              (ILOZ-REF7721 ':INT32) (IHIZ-REF7722 ':INT32)
                              (LDZ-REF7724 ':INT32) (INFO-REF7725 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7712 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7713 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7715 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7716 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7718 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7721 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7722 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7724 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7725 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7717 H) (WR-REF7719 WR)
                                            (WI-REF7720 WI) (Z-REF7723 Z))
      (%%DLAHQR WANTT-REF7712 WANTZ-REF7713 N-REF7714 ILO-REF7715 IHI-REF7716
       H-REF7717 LDH-REF7718 WR-REF7719 WI-REF7720 ILOZ-REF7721 IHIZ-REF7722
       Z-REF7723 LDZ-REF7724 INFO-REF7725))))

(CFFI:DEFCFUN ("dlahr2_" %%DLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %DLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7726 ':INT32) (K-REF7727 ':INT32)
                              (NB-REF7728 ':INT32) (LDA-REF7730 ':INT32)
                              (LDT-REF7733 ':INT32) (LDY-REF7735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7726 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7727 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7728 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7730 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7733 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7735 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7729 A) (TAU-REF7731 TAU)
                                            (T-REF7732 T) (Y-REF7734 Y))
      (%%DLAHR2 N-REF7726 K-REF7727 NB-REF7728 A-REF7729 LDA-REF7730
       TAU-REF7731 T-REF7732 LDT-REF7733 Y-REF7734 LDY-REF7735))))

(CFFI:DEFCFUN ("dlaic1_" %%DLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %DLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7736 ':INT32) (J-REF7737 ':INT32)
                              (SEST-REF7739 ':DOUBLE) (GAMMA-REF7741 ':DOUBLE)
                              (SESTPR-REF7742 ':DOUBLE) (S-REF7743 ':DOUBLE)
                              (C-REF7744 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7736 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF7737 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF7739 :DOUBLE) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF7741 :DOUBLE) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF7742 :DOUBLE) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7743 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7744 :DOUBLE) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7738 X) (W-REF7740 W))
      (%%DLAIC1 JOB-REF7736 J-REF7737 X-REF7738 SEST-REF7739 W-REF7740
       GAMMA-REF7741 SESTPR-REF7742 S-REF7743 C-REF7744))))

(CFFI:DEFCFUN ("dlaisnan_" %%DLAISNAN :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (DIN1 :POINTER)
  (DIN2 :POINTER))

(COMMON-LISP:DEFUN %DLAISNAN (DIN1 DIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF7745 ':DOUBLE) (DIN2-REF7746 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF7745 :DOUBLE) DIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF7746 :DOUBLE) DIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAISNAN DIN1-REF7745 DIN2-REF7746))))

(CFFI:DEFCFUN ("dlaln2_" %%DLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRANS :POINTER)
  (NA :POINTER)
  (NW :POINTER)
  (SMIN :POINTER)
  (CA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D1 :POINTER)
  (D2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (SCALE :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALN2
                   (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF7747 ':INT32) (NA-REF7748 ':INT32)
                              (NW-REF7749 ':INT32) (SMIN-REF7750 ':DOUBLE)
                              (CA-REF7751 ':DOUBLE) (LDA-REF7753 ':INT32)
                              (D1-REF7754 ':DOUBLE) (D2-REF7755 ':DOUBLE)
                              (LDB-REF7757 ':INT32) (WR-REF7758 ':DOUBLE)
                              (WI-REF7759 ':DOUBLE) (LDX-REF7761 ':INT32)
                              (SCALE-REF7762 ':DOUBLE) (XNORM-REF7763 ':DOUBLE)
                              (INFO-REF7764 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF7747 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF7748 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF7749 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF7750 :DOUBLE) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF7751 :DOUBLE) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7753 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF7754 :DOUBLE) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF7755 :DOUBLE) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7757 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7758 :DOUBLE) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7759 :DOUBLE) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7761 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7762 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF7763 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7764 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7752 A) (B-REF7756 B)
                                            (X-REF7760 X))
      (%%DLALN2 LTRANS-REF7747 NA-REF7748 NW-REF7749 SMIN-REF7750 CA-REF7751
       A-REF7752 LDA-REF7753 D1-REF7754 D2-REF7755 B-REF7756 LDB-REF7757
       WR-REF7758 WI-REF7759 X-REF7760 LDX-REF7761 SCALE-REF7762 XNORM-REF7763
       INFO-REF7764))))

(CFFI:DEFCFUN ("dlals0_" %%DLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7765 ':INT32) (NL-REF7766 ':INT32)
                              (NR-REF7767 ':INT32) (SQRE-REF7768 ':INT32)
                              (NRHS-REF7769 ':INT32) (LDB-REF7771 ':INT32)
                              (LDBX-REF7773 ':INT32) (GIVPTR-REF7775 ':INT32)
                              (LDGCOL-REF7777 ':INT32) (LDGNUM-REF7779 ':INT32)
                              (K-REF7784 ':INT32) (C-REF7785 ':DOUBLE)
                              (S-REF7786 ':DOUBLE) (INFO-REF7788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7765 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF7766 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF7767 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7768 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7769 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7771 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7773 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7775 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7777 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF7779 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7784 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7785 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7786 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7770 B) (BX-REF7772 BX)
                                            (PERM-REF7774 PERM)
                                            (GIVCOL-REF7776 GIVCOL)
                                            (GIVNUM-REF7778 GIVNUM)
                                            (POLES-REF7780 POLES)
                                            (DIFL-REF7781 DIFL)
                                            (DIFR-REF7782 DIFR) (Z-REF7783 Z)
                                            (WORK-REF7787 WORK))
      (%%DLALS0 ICOMPQ-REF7765 NL-REF7766 NR-REF7767 SQRE-REF7768 NRHS-REF7769
       B-REF7770 LDB-REF7771 BX-REF7772 LDBX-REF7773 PERM-REF7774
       GIVPTR-REF7775 GIVCOL-REF7776 LDGCOL-REF7777 GIVNUM-REF7778
       LDGNUM-REF7779 POLES-REF7780 DIFL-REF7781 DIFR-REF7782 Z-REF7783
       K-REF7784 C-REF7785 S-REF7786 WORK-REF7787 INFO-REF7788))))

(CFFI:DEFCFUN ("dlalsa_" %%DLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7789 ':INT32) (SMLSIZ-REF7790 ':INT32)
                              (N-REF7791 ':INT32) (NRHS-REF7792 ':INT32)
                              (LDB-REF7794 ':INT32) (LDBX-REF7796 ':INT32)
                              (LDU-REF7798 ':INT32) (LDGCOL-REF7807 ':INT32)
                              (INFO-REF7814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7789 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7790 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7791 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7792 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7794 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7796 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7798 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7807 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7793 B) (BX-REF7795 BX)
                                            (U-REF7797 U) (VT-REF7799 VT)
                                            (K-REF7800 K) (DIFL-REF7801 DIFL)
                                            (DIFR-REF7802 DIFR) (Z-REF7803 Z)
                                            (POLES-REF7804 POLES)
                                            (GIVPTR-REF7805 GIVPTR)
                                            (GIVCOL-REF7806 GIVCOL)
                                            (PERM-REF7808 PERM)
                                            (GIVNUM-REF7809 GIVNUM)
                                            (C-REF7810 C) (S-REF7811 S)
                                            (WORK-REF7812 WORK)
                                            (IWORK-REF7813 IWORK))
      (%%DLALSA ICOMPQ-REF7789 SMLSIZ-REF7790 N-REF7791 NRHS-REF7792 B-REF7793
       LDB-REF7794 BX-REF7795 LDBX-REF7796 U-REF7797 LDU-REF7798 VT-REF7799
       K-REF7800 DIFL-REF7801 DIFR-REF7802 Z-REF7803 POLES-REF7804
       GIVPTR-REF7805 GIVCOL-REF7806 LDGCOL-REF7807 PERM-REF7808 GIVNUM-REF7809
       C-REF7810 S-REF7811 WORK-REF7812 IWORK-REF7813 INFO-REF7814))))

(CFFI:DEFCFUN ("dlalsd_" %%DLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF7816 ':INT32) (N-REF7817 ':INT32)
                              (NRHS-REF7818 ':INT32) (LDB-REF7822 ':INT32)
                              (RCOND-REF7823 ':DOUBLE) (RANK-REF7824 ':INT32)
                              (INFO-REF7827 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7816 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7818 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7822 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7823 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7824 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7827 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7819 D) (E-REF7820 E)
                                            (B-REF7821 B) (WORK-REF7825 WORK)
                                            (IWORK-REF7826 IWORK))
      (%%DLALSD UPLO SMLSIZ-REF7816 N-REF7817 NRHS-REF7818 D-REF7819 E-REF7820
       B-REF7821 LDB-REF7822 RCOND-REF7823 RANK-REF7824 WORK-REF7825
       IWORK-REF7826 INFO-REF7827))))

(CFFI:DEFCFUN ("dlamrg_" %%DLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N1 :POINTER)
  (N2 :POINTER)
  (A :POINTER)
  (DTRD1 :POINTER)
  (DTRD2 :POINTER)
  (INDEX :POINTER))

(COMMON-LISP:DEFUN %DLAMRG (N1 N2 A DTRD1 DTRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMRG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF7828 ':INT32) (N2-REF7829 ':INT32)
                              (DTRD1-REF7831 ':INT32) (DTRD2-REF7832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7828 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7829 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF7831 :INT32) DTRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF7832 :INT32) DTRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7830 A) (INDEX-REF7833 INDEX))
      (%%DLAMRG N1-REF7828 N2-REF7829 A-REF7830 DTRD1-REF7831 DTRD2-REF7832
       INDEX-REF7833))))

(CFFI:DEFCFUN ("dlamswlq_" %%DLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7836 ':INT32) (N-REF7837 ':INT32)
                              (K-REF7838 ':INT32) (MB-REF7839 ':INT32)
                              (NB-REF7840 ':INT32) (LDA-REF7842 ':INT32)
                              (LDT-REF7844 ':INT32) (LDC-REF7846 ':INT32)
                              (LWORK-REF7848 ':INT32) (INFO-REF7849 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7836 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7838 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7839 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7840 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7842 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7844 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7846 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7848 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7849 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7841 A) (T-REF7843 T)
                                            (C-REF7845 C) (WORK-REF7847 WORK))
      (%%DLAMSWLQ SIDE TRANS M-REF7836 N-REF7837 K-REF7838 MB-REF7839
       NB-REF7840 A-REF7841 LDA-REF7842 T-REF7843 LDT-REF7844 C-REF7845
       LDC-REF7846 WORK-REF7847 LWORK-REF7848 INFO-REF7849))))

(CFFI:DEFCFUN ("dlamtsqr_" %%DLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7852 ':INT32) (N-REF7853 ':INT32)
                              (K-REF7854 ':INT32) (MB-REF7855 ':INT32)
                              (NB-REF7856 ':INT32) (LDA-REF7858 ':INT32)
                              (LDT-REF7860 ':INT32) (LDC-REF7862 ':INT32)
                              (LWORK-REF7864 ':INT32) (INFO-REF7865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7852 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7853 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7854 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7855 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7856 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7858 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7860 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7862 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7864 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7857 A) (T-REF7859 T)
                                            (C-REF7861 C) (WORK-REF7863 WORK))
      (%%DLAMTSQR SIDE TRANS M-REF7852 N-REF7853 K-REF7854 MB-REF7855
       NB-REF7856 A-REF7857 LDA-REF7858 T-REF7859 LDT-REF7860 C-REF7861
       LDC-REF7862 WORK-REF7863 LWORK-REF7864 INFO-REF7865))))

(CFFI:DEFCFUN ("dlaneg_" %%DLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :INT32
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (SIGMA :POINTER)
  (PIVMIN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANEG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7866 ':INT32) (SIGMA-REF7869 ':DOUBLE)
                              (PIVMIN-REF7870 ':DOUBLE) (R-REF7871 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF7869 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7870 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF7871 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7867 D) (LLD-REF7868 LLD))
      (%%DLANEG N-REF7866 D-REF7867 LLD-REF7868 SIGMA-REF7869 PIVMIN-REF7870
       R-REF7871))))

(CFFI:DEFCFUN ("dlangb_" %%DLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7873 ':INT32) (KL-REF7874 ':INT32)
                              (KU-REF7875 ':INT32) (LDAB-REF7877 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7874 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7875 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7877 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7876 AB) (WORK-REF7878 WORK))
      (%%DLANGB NORM N-REF7873 KL-REF7874 KU-REF7875 AB-REF7876 LDAB-REF7877
       WORK-REF7878))))

(CFFI:DEFCFUN ("dlange_" %%DLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7880 ':INT32) (N-REF7881 ':INT32)
                              (LDA-REF7883 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7880 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7883 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7882 A) (WORK-REF7884 WORK))
      (%%DLANGE NORM M-REF7880 N-REF7881 A-REF7882 LDA-REF7883 WORK-REF7884))))

(CFFI:DEFCFUN ("dlangt_" %%DLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %DLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7886 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7886 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7887 DL) (D-REF7888 D)
                                            (DU-REF7889 DU))
      (%%DLANGT NORM N-REF7886 DL-REF7887 D-REF7888 DU-REF7889))))

(CFFI:DEFCFUN ("dlanhs_" %%DLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7891 ':INT32) (LDA-REF7893 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7891 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7893 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7892 A) (WORK-REF7894 WORK))
      (%%DLANHS NORM N-REF7891 A-REF7892 LDA-REF7893 WORK-REF7894))))

(CFFI:DEFCFUN ("dlansb_" %%DLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7897 ':INT32) (K-REF7898 ':INT32)
                              (LDAB-REF7900 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7897 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7898 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7900 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7899 AB) (WORK-REF7901 WORK))
      (%%DLANSB NORM UPLO N-REF7897 K-REF7898 AB-REF7899 LDAB-REF7900
       WORK-REF7901))))

(CFFI:DEFCFUN ("dlansf_" %%DLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7905 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7905 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7906 A) (WORK-REF7907 WORK))
      (%%DLANSF NORM TRANSR UPLO N-REF7905 A-REF7906 WORK-REF7907))))

(CFFI:DEFCFUN ("dlansp_" %%DLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7910 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7911 AP) (WORK-REF7912 WORK))
      (%%DLANSP NORM UPLO N-REF7910 AP-REF7911 WORK-REF7912))))

(CFFI:DEFCFUN ("dlanst_" %%DLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %DLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7914 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7914 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7915 D) (E-REF7916 E))
      (%%DLANST NORM N-REF7914 D-REF7915 E-REF7916))))

(CFFI:DEFCFUN ("dlansy_" %%DLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7919 ':INT32) (LDA-REF7921 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7919 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7921 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7920 A) (WORK-REF7922 WORK))
      (%%DLANSY NORM UPLO N-REF7919 A-REF7920 LDA-REF7921 WORK-REF7922))))

(CFFI:DEFCFUN ("dlantb_" %%DLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7926 ':INT32) (K-REF7927 ':INT32)
                              (LDAB-REF7929 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7927 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7929 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7928 AB) (WORK-REF7930 WORK))
      (%%DLANTB NORM UPLO DIAG N-REF7926 K-REF7927 AB-REF7928 LDAB-REF7929
       WORK-REF7930))))

(CFFI:DEFCFUN ("dlantp_" %%DLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7934 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7935 AP) (WORK-REF7936 WORK))
      (%%DLANTP NORM UPLO DIAG N-REF7934 AP-REF7935 WORK-REF7936))))

(CFFI:DEFCFUN ("dlantr_" %%DLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7940 ':INT32) (N-REF7941 ':INT32)
                              (LDA-REF7943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7940 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7941 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7943 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7942 A) (WORK-REF7944 WORK))
      (%%DLANTR NORM UPLO DIAG M-REF7940 N-REF7941 A-REF7942 LDA-REF7943
       WORK-REF7944))))

(CFFI:DEFCFUN ("dlanv2_" %%DLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (RT1R :POINTER)
  (RT1I :POINTER)
  (RT2R :POINTER)
  (RT2I :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %DLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1R)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1I)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2R)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2I)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7945 ':DOUBLE) (B-REF7946 ':DOUBLE)
                              (C-REF7947 ':DOUBLE) (D-REF7948 ':DOUBLE)
                              (RT1R-REF7949 ':DOUBLE) (RT1I-REF7950 ':DOUBLE)
                              (RT2R-REF7951 ':DOUBLE) (RT2I-REF7952 ':DOUBLE)
                              (CS-REF7953 ':DOUBLE) (SN-REF7954 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7945 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7946 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7947 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7948 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF7949 :DOUBLE) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF7950 :DOUBLE) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF7951 :DOUBLE) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF7952 :DOUBLE) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF7953 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF7954 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLANV2 A-REF7945 B-REF7946 C-REF7947 D-REF7948 RT1R-REF7949
       RT1I-REF7950 RT2R-REF7951 RT2I-REF7952 CS-REF7953 SN-REF7954))))

(CFFI:DEFCFUN ("dlaorhr_col_getrfnp_" %%DLAORHR_COL_GETRFNP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7955 ':INT32) (N-REF7956 ':INT32)
                              (LDA-REF7958 ':INT32) (INFO-REF7960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7955 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7956 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7958 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7957 A) (D-REF7959 D))
      (%%DLAORHR_COL_GETRFNP M-REF7955 N-REF7956 A-REF7957 LDA-REF7958
       D-REF7959 INFO-REF7960))))

(CFFI:DEFCFUN ("dlaorhr_col_getrfnp2_" %%DLAORHR_COL_GETRFNP2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7961 ':INT32) (N-REF7962 ':INT32)
                              (LDA-REF7964 ':INT32) (INFO-REF7966 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7961 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7962 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7964 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7966 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7963 A) (D-REF7965 D))
      (%%DLAORHR_COL_GETRFNP2 M-REF7961 N-REF7962 A-REF7963 LDA-REF7964
       D-REF7965 INFO-REF7966))))

(CFFI:DEFCFUN ("dlapll_" %%DLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %DLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7967 ':INT32) (INCX-REF7969 ':INT32)
                              (INCY-REF7971 ':INT32) (SSMIN-REF7972 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7969 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7971 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF7972 :DOUBLE) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7968 X) (Y-REF7970 Y))
      (%%DLAPLL N-REF7967 X-REF7968 INCX-REF7969 Y-REF7970 INCY-REF7971
       SSMIN-REF7972))))

(CFFI:DEFCFUN ("dlapmr_" %%DLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %DLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7973 ':INT32) (M-REF7974 ':INT32)
                              (N-REF7975 ':INT32) (LDX-REF7977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7973 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7974 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7975 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7977 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7976 X) (K-REF7978 K))
      (%%DLAPMR FORWRD-REF7973 M-REF7974 N-REF7975 X-REF7976 LDX-REF7977
       K-REF7978))))

(CFFI:DEFCFUN ("dlapmt_" %%DLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %DLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7979 ':INT32) (M-REF7980 ':INT32)
                              (N-REF7981 ':INT32) (LDX-REF7983 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7979 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7980 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7983 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7982 X) (K-REF7984 K))
      (%%DLAPMT FORWRD-REF7979 M-REF7980 N-REF7981 X-REF7982 LDX-REF7983
       K-REF7984))))

(CFFI:DEFCFUN ("dlapy2_" %%DLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %DLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7985 ':DOUBLE) (Y-REF7986 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7985 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7986 :DOUBLE) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY2 X-REF7985 Y-REF7986))))

(CFFI:DEFCFUN ("dlapy3_" %%DLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :DOUBLE
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER))

(COMMON-LISP:DEFUN %DLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7987 ':DOUBLE) (Y-REF7988 ':DOUBLE)
                              (Z-REF7989 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7987 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7988 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF7989 :DOUBLE) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY3 X-REF7987 Y-REF7988 Z-REF7989))))

(CFFI:DEFCFUN ("dlaqgb_" %%DLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7990 ':INT32) (N-REF7991 ':INT32)
                              (KL-REF7992 ':INT32) (KU-REF7993 ':INT32)
                              (LDAB-REF7995 ':INT32) (ROWCND-REF7998 ':DOUBLE)
                              (COLCND-REF7999 ':DOUBLE) (AMAX-REF8000 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7990 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7991 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7992 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7993 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7995 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF7998 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF7999 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8000 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7994 AB) (R-REF7996 R)
                                            (C-REF7997 C))
      (%%DLAQGB M-REF7990 N-REF7991 KL-REF7992 KU-REF7993 AB-REF7994
       LDAB-REF7995 R-REF7996 C-REF7997 ROWCND-REF7998 COLCND-REF7999
       AMAX-REF8000 EQUED))))

(CFFI:DEFCFUN ("dlaqge_" %%DLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8002 ':INT32) (N-REF8003 ':INT32)
                              (LDA-REF8005 ':INT32) (ROWCND-REF8008 ':DOUBLE)
                              (COLCND-REF8009 ':DOUBLE) (AMAX-REF8010 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8002 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8005 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8008 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8009 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8010 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8004 A) (R-REF8006 R)
                                            (C-REF8007 C))
      (%%DLAQGE M-REF8002 N-REF8003 A-REF8004 LDA-REF8005 R-REF8006 C-REF8007
       ROWCND-REF8008 COLCND-REF8009 AMAX-REF8010 EQUED))))

(CFFI:DEFCFUN ("dlaqp2_" %%DLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8012 ':INT32) (N-REF8013 ':INT32)
                              (OFFSET-REF8014 ':INT32) (LDA-REF8016 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8012 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8014 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8016 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8015 A) (JPVT-REF8017 JPVT)
                                            (TAU-REF8018 TAU) (VN1-REF8019 VN1)
                                            (VN2-REF8020 VN2)
                                            (WORK-REF8021 WORK))
      (%%DLAQP2 M-REF8012 N-REF8013 OFFSET-REF8014 A-REF8015 LDA-REF8016
       JPVT-REF8017 TAU-REF8018 VN1-REF8019 VN2-REF8020 WORK-REF8021))))

(CFFI:DEFCFUN ("dlaqps_" %%DLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %DLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8022 ':INT32) (N-REF8023 ':INT32)
                              (OFFSET-REF8024 ':INT32) (NB-REF8025 ':INT32)
                              (KB-REF8026 ':INT32) (LDA-REF8028 ':INT32)
                              (LDF-REF8035 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8022 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8024 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8025 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8026 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8028 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8035 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8027 A) (JPVT-REF8029 JPVT)
                                            (TAU-REF8030 TAU) (VN1-REF8031 VN1)
                                            (VN2-REF8032 VN2)
                                            (AUXV-REF8033 AUXV) (F-REF8034 F))
      (%%DLAQPS M-REF8022 N-REF8023 OFFSET-REF8024 NB-REF8025 KB-REF8026
       A-REF8027 LDA-REF8028 JPVT-REF8029 TAU-REF8030 VN1-REF8031 VN2-REF8032
       AUXV-REF8033 F-REF8034 LDF-REF8035))))

(CFFI:DEFCFUN ("dlaqr0_" %%DLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQR0
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8036 ':INT32) (WANTZ-REF8037 ':INT32)
                              (N-REF8038 ':INT32) (ILO-REF8039 ':INT32)
                              (IHI-REF8040 ':INT32) (LDH-REF8042 ':INT32)
                              (ILOZ-REF8045 ':INT32) (IHIZ-REF8046 ':INT32)
                              (LDZ-REF8048 ':INT32) (LWORK-REF8050 ':INT32)
                              (INFO-REF8051 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8036 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8037 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8038 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8039 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8040 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8042 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8045 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8046 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8048 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8050 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8051 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8041 H) (WR-REF8043 WR)
                                            (WI-REF8044 WI) (Z-REF8047 Z)
                                            (WORK-REF8049 WORK))
      (%%DLAQR0 WANTT-REF8036 WANTZ-REF8037 N-REF8038 ILO-REF8039 IHI-REF8040
       H-REF8041 LDH-REF8042 WR-REF8043 WI-REF8044 ILOZ-REF8045 IHIZ-REF8046
       Z-REF8047 LDZ-REF8048 WORK-REF8049 LWORK-REF8050 INFO-REF8051))))

(CFFI:DEFCFUN ("dlaqr1_" %%DLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (SR1 :POINTER)
  (SI1 :POINTER)
  (SR2 :POINTER)
  (SI2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %DLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8052 ':INT32) (LDH-REF8054 ':INT32)
                              (SR1-REF8055 ':DOUBLE) (SI1-REF8056 ':DOUBLE)
                              (SR2-REF8057 ':DOUBLE) (SI2-REF8058 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8054 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF8055 :DOUBLE) SR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF8056 :DOUBLE) SI1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF8057 :DOUBLE) SR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF8058 :DOUBLE) SI2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8053 H) (V-REF8059 V))
      (%%DLAQR1 N-REF8052 H-REF8053 LDH-REF8054 SR1-REF8055 SI1-REF8056
       SR2-REF8057 SI2-REF8058 V-REF8059))))

(CFFI:DEFCFUN ("dlaqr2_" %%DLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %DLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8060 ':INT32) (WANTZ-REF8061 ':INT32)
                              (N-REF8062 ':INT32) (KTOP-REF8063 ':INT32)
                              (KBOT-REF8064 ':INT32) (NW-REF8065 ':INT32)
                              (LDH-REF8067 ':INT32) (ILOZ-REF8068 ':INT32)
                              (IHIZ-REF8069 ':INT32) (LDZ-REF8071 ':INT32)
                              (NS-REF8072 ':INT32) (ND-REF8073 ':INT32)
                              (LDV-REF8077 ':INT32) (NH-REF8078 ':INT32)
                              (LDT-REF8080 ':INT32) (NV-REF8081 ':INT32)
                              (LDWV-REF8083 ':INT32) (LWORK-REF8085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8060 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8061 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8063 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8064 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8065 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8067 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8068 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8069 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8071 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8072 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8073 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8077 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8078 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8080 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8081 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8083 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8085 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8066 H) (Z-REF8070 Z)
                                            (SR-REF8074 SR) (SI-REF8075 SI)
                                            (V-REF8076 V) (T-REF8079 T)
                                            (WV-REF8082 WV) (WORK-REF8084 WORK))
      (%%DLAQR2 WANTT-REF8060 WANTZ-REF8061 N-REF8062 KTOP-REF8063 KBOT-REF8064
       NW-REF8065 H-REF8066 LDH-REF8067 ILOZ-REF8068 IHIZ-REF8069 Z-REF8070
       LDZ-REF8071 NS-REF8072 ND-REF8073 SR-REF8074 SI-REF8075 V-REF8076
       LDV-REF8077 NH-REF8078 T-REF8079 LDT-REF8080 NV-REF8081 WV-REF8082
       LDWV-REF8083 WORK-REF8084 LWORK-REF8085))))

(CFFI:DEFCFUN ("dlaqr3_" %%DLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %DLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8086 ':INT32) (WANTZ-REF8087 ':INT32)
                              (N-REF8088 ':INT32) (KTOP-REF8089 ':INT32)
                              (KBOT-REF8090 ':INT32) (NW-REF8091 ':INT32)
                              (LDH-REF8093 ':INT32) (ILOZ-REF8094 ':INT32)
                              (IHIZ-REF8095 ':INT32) (LDZ-REF8097 ':INT32)
                              (NS-REF8098 ':INT32) (ND-REF8099 ':INT32)
                              (LDV-REF8103 ':INT32) (NH-REF8104 ':INT32)
                              (LDT-REF8106 ':INT32) (NV-REF8107 ':INT32)
                              (LDWV-REF8109 ':INT32) (LWORK-REF8111 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8086 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8087 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8088 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8089 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8090 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8091 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8093 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8094 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8095 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8097 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8098 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8099 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8103 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8104 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8106 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8107 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8109 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8111 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8092 H) (Z-REF8096 Z)
                                            (SR-REF8100 SR) (SI-REF8101 SI)
                                            (V-REF8102 V) (T-REF8105 T)
                                            (WV-REF8108 WV) (WORK-REF8110 WORK))
      (%%DLAQR3 WANTT-REF8086 WANTZ-REF8087 N-REF8088 KTOP-REF8089 KBOT-REF8090
       NW-REF8091 H-REF8092 LDH-REF8093 ILOZ-REF8094 IHIZ-REF8095 Z-REF8096
       LDZ-REF8097 NS-REF8098 ND-REF8099 SR-REF8100 SI-REF8101 V-REF8102
       LDV-REF8103 NH-REF8104 T-REF8105 LDT-REF8106 NV-REF8107 WV-REF8108
       LDWV-REF8109 WORK-REF8110 LWORK-REF8111))))

(CFFI:DEFCFUN ("dlaqr4_" %%DLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQR4
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8112 ':INT32) (WANTZ-REF8113 ':INT32)
                              (N-REF8114 ':INT32) (ILO-REF8115 ':INT32)
                              (IHI-REF8116 ':INT32) (LDH-REF8118 ':INT32)
                              (ILOZ-REF8121 ':INT32) (IHIZ-REF8122 ':INT32)
                              (LDZ-REF8124 ':INT32) (LWORK-REF8126 ':INT32)
                              (INFO-REF8127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8112 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8113 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8114 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8115 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8116 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8118 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8121 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8122 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8124 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8126 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8117 H) (WR-REF8119 WR)
                                            (WI-REF8120 WI) (Z-REF8123 Z)
                                            (WORK-REF8125 WORK))
      (%%DLAQR4 WANTT-REF8112 WANTZ-REF8113 N-REF8114 ILO-REF8115 IHI-REF8116
       H-REF8117 LDH-REF8118 WR-REF8119 WI-REF8120 ILOZ-REF8121 IHIZ-REF8122
       Z-REF8123 LDZ-REF8124 WORK-REF8125 LWORK-REF8126 INFO-REF8127))))

(CFFI:DEFCFUN ("dlaqr5_" %%DLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %DLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ
                    Z LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8128 ':INT32) (WANTZ-REF8129 ':INT32)
                              (KACC22-REF8130 ':INT32) (N-REF8131 ':INT32)
                              (KTOP-REF8132 ':INT32) (KBOT-REF8133 ':INT32)
                              (NSHFTS-REF8134 ':INT32) (LDH-REF8138 ':INT32)
                              (ILOZ-REF8139 ':INT32) (IHIZ-REF8140 ':INT32)
                              (LDZ-REF8142 ':INT32) (LDV-REF8144 ':INT32)
                              (LDU-REF8146 ':INT32) (NV-REF8147 ':INT32)
                              (LDWV-REF8149 ':INT32) (NH-REF8150 ':INT32)
                              (LDWH-REF8152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8128 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8129 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8130 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8132 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8133 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8134 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8138 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8139 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8140 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8142 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8144 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8146 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8147 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8149 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8150 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8152 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF8135 SR) (SI-REF8136 SI)
                                            (H-REF8137 H) (Z-REF8141 Z)
                                            (V-REF8143 V) (U-REF8145 U)
                                            (WV-REF8148 WV) (WH-REF8151 WH))
      (%%DLAQR5 WANTT-REF8128 WANTZ-REF8129 KACC22-REF8130 N-REF8131
       KTOP-REF8132 KBOT-REF8133 NSHFTS-REF8134 SR-REF8135 SI-REF8136 H-REF8137
       LDH-REF8138 ILOZ-REF8139 IHIZ-REF8140 Z-REF8141 LDZ-REF8142 V-REF8143
       LDV-REF8144 U-REF8145 LDU-REF8146 NV-REF8147 WV-REF8148 LDWV-REF8149
       NH-REF8150 WH-REF8151 LDWH-REF8152))))

(CFFI:DEFCFUN ("dlaqsb_" %%DLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8154 ':INT32) (KD-REF8155 ':INT32)
                              (LDAB-REF8157 ':INT32) (SCOND-REF8159 ':DOUBLE)
                              (AMAX-REF8160 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8155 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8157 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8159 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8160 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8156 AB) (S-REF8158 S))
      (%%DLAQSB UPLO N-REF8154 KD-REF8155 AB-REF8156 LDAB-REF8157 S-REF8158
       SCOND-REF8159 AMAX-REF8160 EQUED))))

(CFFI:DEFCFUN ("dlaqsp_" %%DLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8163 ':INT32) (SCOND-REF8166 ':DOUBLE)
                              (AMAX-REF8167 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8163 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8166 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8167 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8164 AP) (S-REF8165 S))
      (%%DLAQSP UPLO N-REF8163 AP-REF8164 S-REF8165 SCOND-REF8166 AMAX-REF8167
       EQUED))))

(CFFI:DEFCFUN ("dlaqsy_" %%DLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8170 ':INT32) (LDA-REF8172 ':INT32)
                              (SCOND-REF8174 ':DOUBLE) (AMAX-REF8175 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8172 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8174 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8175 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8171 A) (S-REF8173 S))
      (%%DLAQSY UPLO N-REF8170 A-REF8171 LDA-REF8172 S-REF8173 SCOND-REF8174
       AMAX-REF8175 EQUED))))

(CFFI:DEFCFUN ("dlaqtr_" %%DLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (LTRAN :POINTER)
  (LREAL :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (B :POINTER)
  (W :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQTR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF8177 ':INT32) (LREAL-REF8178 ':INT32)
                              (N-REF8179 ':INT32) (LDT-REF8181 ':INT32)
                              (W-REF8183 ':DOUBLE) (SCALE-REF8184 ':DOUBLE)
                              (INFO-REF8187 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF8177 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF8178 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8181 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8183 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8184 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8187 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8180 T) (B-REF8182 B)
                                            (X-REF8185 X) (WORK-REF8186 WORK))
      (%%DLAQTR LTRAN-REF8177 LREAL-REF8178 N-REF8179 T-REF8180 LDT-REF8181
       B-REF8182 W-REF8183 SCALE-REF8184 X-REF8185 WORK-REF8186 INFO-REF8187))))

(CFFI:DEFCFUN ("dlar1v_" %%DLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8188 ':INT32) (B1-REF8189 ':INT32)
                              (BN-REF8190 ':INT32) (LAMBDA-REF8191 ':DOUBLE)
                              (PIVMIN-REF8196 ':DOUBLE)
                              (GAPTOL-REF8197 ':DOUBLE)
                              (WANTNC-REF8199 ':INT32) (NEGCNT-REF8200 ':INT32)
                              (ZTZ-REF8201 ':DOUBLE) (MINGMA-REF8202 ':DOUBLE)
                              (R-REF8203 ':INT32) (NRMINV-REF8205 ':DOUBLE)
                              (RESID-REF8206 ':DOUBLE)
                              (RQCORR-REF8207 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8188 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF8189 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF8190 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8191 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8196 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF8197 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF8199 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF8200 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF8201 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF8202 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8203 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF8205 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF8206 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF8207 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8192 D) (L-REF8193 L)
                                            (LD-REF8194 LD) (LLD-REF8195 LLD)
                                            (Z-REF8198 Z)
                                            (ISUPPZ-REF8204 ISUPPZ)
                                            (WORK-REF8208 WORK))
      (%%DLAR1V N-REF8188 B1-REF8189 BN-REF8190 LAMBDA-REF8191 D-REF8192
       L-REF8193 LD-REF8194 LLD-REF8195 PIVMIN-REF8196 GAPTOL-REF8197 Z-REF8198
       WANTNC-REF8199 NEGCNT-REF8200 ZTZ-REF8201 MINGMA-REF8202 R-REF8203
       ISUPPZ-REF8204 NRMINV-REF8205 RESID-REF8206 RQCORR-REF8207
       WORK-REF8208))))

(CFFI:DEFCFUN ("dlar2v_" %%DLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8209 ':INT32) (INCX-REF8213 ':INT32)
                              (INCC-REF8216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8213 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8216 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8210 X) (Y-REF8211 Y)
                                            (Z-REF8212 Z) (C-REF8214 C)
                                            (S-REF8215 S))
      (%%DLAR2V N-REF8209 X-REF8210 Y-REF8211 Z-REF8212 INCX-REF8213 C-REF8214
       S-REF8215 INCC-REF8216))))

(CFFI:DEFCFUN ("dlarf_" %%DLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8218 ':INT32) (N-REF8219 ':INT32)
                              (INCV-REF8221 ':INT32) (TAU-REF8222 ':DOUBLE)
                              (LDC-REF8224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8218 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8219 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8221 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8222 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8224 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8220 V) (C-REF8223 C)
                                            (WORK-REF8225 WORK))
      (%%DLARF SIDE M-REF8218 N-REF8219 V-REF8220 INCV-REF8221 TAU-REF8222
       C-REF8223 LDC-REF8224 WORK-REF8225))))

(CFFI:DEFCFUN ("dlarfb_" %%DLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8230 ':INT32) (N-REF8231 ':INT32)
                              (K-REF8232 ':INT32) (LDV-REF8234 ':INT32)
                              (LDT-REF8236 ':INT32) (LDC-REF8238 ':INT32)
                              (LDWORK-REF8240 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8230 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8231 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8232 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8234 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8236 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8238 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8240 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8233 V) (T-REF8235 T)
                                            (C-REF8237 C) (WORK-REF8239 WORK))
      (%%DLARFB SIDE TRANS DIRECT STOREV M-REF8230 N-REF8231 K-REF8232
       V-REF8233 LDV-REF8234 T-REF8235 LDT-REF8236 C-REF8237 LDC-REF8238
       WORK-REF8239 LDWORK-REF8240))))

(CFFI:DEFCFUN ("dlarfg_" %%DLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8241 ':INT32) (ALPHA-REF8242 ':DOUBLE)
                              (INCX-REF8244 ':INT32) (TAU-REF8245 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8241 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8242 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8244 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8245 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8243 X))
      (%%DLARFG N-REF8241 ALPHA-REF8242 X-REF8243 INCX-REF8244 TAU-REF8245))))

(CFFI:DEFCFUN ("dlarfgp_" %%DLARFGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8246 ':INT32) (ALPHA-REF8247 ':DOUBLE)
                              (INCX-REF8249 ':INT32) (TAU-REF8250 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8247 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8249 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8250 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8248 X))
      (%%DLARFGP N-REF8246 ALPHA-REF8247 X-REF8248 INCX-REF8249 TAU-REF8250))))

(CFFI:DEFCFUN ("dlarft_" %%DLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %DLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8253 ':INT32) (K-REF8254 ':INT32)
                              (LDV-REF8256 ':INT32) (LDT-REF8259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8253 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8254 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8256 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8259 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8255 V) (TAU-REF8257 TAU)
                                            (T-REF8258 T))
      (%%DLARFT DIRECT STOREV N-REF8253 K-REF8254 V-REF8255 LDV-REF8256
       TAU-REF8257 T-REF8258 LDT-REF8259))))

(CFFI:DEFCFUN ("dlarfx_" %%DLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8261 ':INT32) (N-REF8262 ':INT32)
                              (TAU-REF8264 ':DOUBLE) (LDC-REF8266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8261 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8262 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8264 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8266 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8263 V) (C-REF8265 C)
                                            (WORK-REF8267 WORK))
      (%%DLARFX SIDE M-REF8261 N-REF8262 V-REF8263 TAU-REF8264 C-REF8265
       LDC-REF8266 WORK-REF8267))))

(CFFI:DEFCFUN ("dlarfy_" %%DLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8269 ':INT32) (INCV-REF8271 ':INT32)
                              (TAU-REF8272 ':DOUBLE) (LDC-REF8274 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8269 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8271 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8272 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8274 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8270 V) (C-REF8273 C)
                                            (WORK-REF8275 WORK))
      (%%DLARFY UPLO N-REF8269 V-REF8270 INCV-REF8271 TAU-REF8272 C-REF8273
       LDC-REF8274 WORK-REF8275))))

(CFFI:DEFCFUN ("dlargv_" %%DLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8276 ':INT32) (INCX-REF8278 ':INT32)
                              (INCY-REF8280 ':INT32) (INCC-REF8282 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8278 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8280 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8282 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8277 X) (Y-REF8279 Y)
                                            (C-REF8281 C))
      (%%DLARGV N-REF8276 X-REF8277 INCX-REF8278 Y-REF8279 INCY-REF8280
       C-REF8281 INCC-REF8282))))

(CFFI:DEFCFUN ("dlarnv_" %%DLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %DLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF8283 ':INT32) (N-REF8285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF8283 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8285 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8284 ISEED) (X-REF8286 X))
      (%%DLARNV IDIST-REF8283 ISEED-REF8284 N-REF8285 X-REF8286))))

(CFFI:DEFCFUN ("dlarra_" %%DLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (SPLTOL :POINTER)
  (TNRM :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TNRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8287 ':INT32) (SPLTOL-REF8291 ':DOUBLE)
                              (TNRM-REF8292 ':DOUBLE) (NSPLIT-REF8293 ':INT32)
                              (INFO-REF8295 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8287 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8291 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF8292 :DOUBLE) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8293 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8295 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8288 D) (E-REF8289 E)
                                            (E2-REF8290 E2)
                                            (ISPLIT-REF8294 ISPLIT))
      (%%DLARRA N-REF8287 D-REF8288 E-REF8289 E2-REF8290 SPLTOL-REF8291
       TNRM-REF8292 NSPLIT-REF8293 ISPLIT-REF8294 INFO-REF8295))))

(CFFI:DEFCFUN ("dlarrb_" %%DLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (TWIST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRB
                   (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK
                    IWORK PIVMIN SPDIAM TWIST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8296 ':INT32) (IFIRST-REF8299 ':INT32)
                              (ILAST-REF8300 ':INT32) (RTOL1-REF8301 ':DOUBLE)
                              (RTOL2-REF8302 ':DOUBLE) (OFFSET-REF8303 ':INT32)
                              (PIVMIN-REF8309 ':DOUBLE)
                              (SPDIAM-REF8310 ':DOUBLE) (TWIST-REF8311 ':INT32)
                              (INFO-REF8312 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8299 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8300 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8301 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8302 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8303 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8309 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8310 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF8311 :INT32) TWIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8312 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8297 D) (LLD-REF8298 LLD)
                                            (W-REF8304 W) (WGAP-REF8305 WGAP)
                                            (WERR-REF8306 WERR)
                                            (WORK-REF8307 WORK)
                                            (IWORK-REF8308 IWORK))
      (%%DLARRB N-REF8296 D-REF8297 LLD-REF8298 IFIRST-REF8299 ILAST-REF8300
       RTOL1-REF8301 RTOL2-REF8302 OFFSET-REF8303 W-REF8304 WGAP-REF8305
       WERR-REF8306 WORK-REF8307 IWORK-REF8308 PIVMIN-REF8309 SPDIAM-REF8310
       TWIST-REF8311 INFO-REF8312))))

(CFFI:DEFCFUN ("dlarrc_" %%DLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (JOBT :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (PIVMIN :POINTER)
  (EIGCNT :POINTER)
  (LCNT :POINTER)
  (RCNT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRC (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8314 ':INT32) (VL-REF8315 ':DOUBLE)
                              (VU-REF8316 ':DOUBLE) (PIVMIN-REF8319 ':DOUBLE)
                              (EIGCNT-REF8320 ':INT32) (LCNT-REF8321 ':INT32)
                              (RCNT-REF8322 ':INT32) (INFO-REF8323 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8314 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8315 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8316 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8319 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF8320 :INT32) EIGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF8321 :INT32) LCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF8322 :INT32) RCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8323 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8317 D) (E-REF8318 E))
      (%%DLARRC JOBT N-REF8314 VL-REF8315 VU-REF8316 D-REF8317 E-REF8318
       PIVMIN-REF8319 EIGCNT-REF8320 LCNT-REF8321 RCNT-REF8322 INFO-REF8323))))

(CFFI:DEFCFUN ("dlarrd_" %%DLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (GERS :POINTER)
  (RELTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WL :POINTER)
  (WU :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRD
                   (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT
                    ISPLIT M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8326 ':INT32) (VL-REF8327 ':DOUBLE)
                              (VU-REF8328 ':DOUBLE) (IL-REF8329 ':INT32)
                              (IU-REF8330 ':INT32) (RELTOL-REF8332 ':DOUBLE)
                              (PIVMIN-REF8336 ':DOUBLE)
                              (NSPLIT-REF8337 ':INT32) (M-REF8339 ':INT32)
                              (WL-REF8342 ':DOUBLE) (WU-REF8343 ':DOUBLE)
                              (INFO-REF8348 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8326 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8327 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8328 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8329 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8330 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8332 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8336 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8337 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8339 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF8342 :DOUBLE) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF8343 :DOUBLE) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8348 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF8331 GERS) (D-REF8333 D)
                                            (E-REF8334 E) (E2-REF8335 E2)
                                            (ISPLIT-REF8338 ISPLIT)
                                            (W-REF8340 W) (WERR-REF8341 WERR)
                                            (IBLOCK-REF8344 IBLOCK)
                                            (INDEXW-REF8345 INDEXW)
                                            (WORK-REF8346 WORK)
                                            (IWORK-REF8347 IWORK))
      (%%DLARRD RANGE ORDER N-REF8326 VL-REF8327 VU-REF8328 IL-REF8329
       IU-REF8330 GERS-REF8331 RELTOL-REF8332 D-REF8333 E-REF8334 E2-REF8335
       PIVMIN-REF8336 NSPLIT-REF8337 ISPLIT-REF8338 M-REF8339 W-REF8340
       WERR-REF8341 WL-REF8342 WU-REF8343 IBLOCK-REF8344 INDEXW-REF8345
       WORK-REF8346 IWORK-REF8347 INFO-REF8348))))

(CFFI:DEFCFUN ("dlarre_" %%DLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (SPLTOL :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (PIVMIN :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRE
                   (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT
                    M W WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8350 ':INT32) (VL-REF8351 ':DOUBLE)
                              (VU-REF8352 ':DOUBLE) (IL-REF8353 ':INT32)
                              (IU-REF8354 ':INT32) (RTOL1-REF8358 ':DOUBLE)
                              (RTOL2-REF8359 ':DOUBLE)
                              (SPLTOL-REF8360 ':DOUBLE)
                              (NSPLIT-REF8361 ':INT32) (M-REF8363 ':INT32)
                              (PIVMIN-REF8370 ':DOUBLE) (INFO-REF8373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8350 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8351 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8352 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8353 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8354 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8358 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8359 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8360 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8361 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8363 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8370 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8373 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8355 D) (E-REF8356 E)
                                            (E2-REF8357 E2)
                                            (ISPLIT-REF8362 ISPLIT)
                                            (W-REF8364 W) (WERR-REF8365 WERR)
                                            (WGAP-REF8366 WGAP)
                                            (IBLOCK-REF8367 IBLOCK)
                                            (INDEXW-REF8368 INDEXW)
                                            (GERS-REF8369 GERS)
                                            (WORK-REF8371 WORK)
                                            (IWORK-REF8372 IWORK))
      (%%DLARRE RANGE N-REF8350 VL-REF8351 VU-REF8352 IL-REF8353 IU-REF8354
       D-REF8355 E-REF8356 E2-REF8357 RTOL1-REF8358 RTOL2-REF8359
       SPLTOL-REF8360 NSPLIT-REF8361 ISPLIT-REF8362 M-REF8363 W-REF8364
       WERR-REF8365 WGAP-REF8366 IBLOCK-REF8367 INDEXW-REF8368 GERS-REF8369
       PIVMIN-REF8370 WORK-REF8371 IWORK-REF8372 INFO-REF8373))))

(CFFI:DEFCFUN ("dlarrf_" %%DLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (CLSTRT :POINTER)
  (CLEND :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (SPDIAM :POINTER)
  (CLGAPL :POINTER)
  (CLGAPR :POINTER)
  (PIVMIN :POINTER)
  (SIGMA :POINTER)
  (DPLUS :POINTER)
  (LPLUS :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRF
                   (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR
                    PIVMIN SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8374 ':INT32) (CLSTRT-REF8378 ':INT32)
                              (CLEND-REF8379 ':INT32) (SPDIAM-REF8383 ':DOUBLE)
                              (CLGAPL-REF8384 ':DOUBLE)
                              (CLGAPR-REF8385 ':DOUBLE)
                              (PIVMIN-REF8386 ':DOUBLE)
                              (SIGMA-REF8387 ':DOUBLE) (INFO-REF8391 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8374 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF8378 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF8379 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8383 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF8384 :DOUBLE) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF8385 :DOUBLE) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8386 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8387 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8391 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8375 D) (L-REF8376 L)
                                            (LD-REF8377 LD) (W-REF8380 W)
                                            (WGAP-REF8381 WGAP)
                                            (WERR-REF8382 WERR)
                                            (DPLUS-REF8388 DPLUS)
                                            (LPLUS-REF8389 LPLUS)
                                            (WORK-REF8390 WORK))
      (%%DLARRF N-REF8374 D-REF8375 L-REF8376 LD-REF8377 CLSTRT-REF8378
       CLEND-REF8379 W-REF8380 WGAP-REF8381 WERR-REF8382 SPDIAM-REF8383
       CLGAPL-REF8384 CLGAPR-REF8385 PIVMIN-REF8386 SIGMA-REF8387 DPLUS-REF8388
       LPLUS-REF8389 WORK-REF8390 INFO-REF8391))))

(CFFI:DEFCFUN ("dlarrj_" %%DLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRJ
                   (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN
                    SPDIAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRJ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8392 ':INT32) (IFIRST-REF8395 ':INT32)
                              (ILAST-REF8396 ':INT32) (RTOL-REF8397 ':DOUBLE)
                              (OFFSET-REF8398 ':INT32)
                              (PIVMIN-REF8403 ':DOUBLE)
                              (SPDIAM-REF8404 ':DOUBLE) (INFO-REF8405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8392 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8395 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8396 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF8397 :DOUBLE) RTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8398 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8403 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8404 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8393 D) (E2-REF8394 E2)
                                            (W-REF8399 W) (WERR-REF8400 WERR)
                                            (WORK-REF8401 WORK)
                                            (IWORK-REF8402 IWORK))
      (%%DLARRJ N-REF8392 D-REF8393 E2-REF8394 IFIRST-REF8395 ILAST-REF8396
       RTOL-REF8397 OFFSET-REF8398 W-REF8399 WERR-REF8400 WORK-REF8401
       IWORK-REF8402 PIVMIN-REF8403 SPDIAM-REF8404 INFO-REF8405))))

(CFFI:DEFCFUN ("dlarrk_" %%DLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (IW :POINTER)
  (GL :POINTER)
  (GU :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (RELTOL :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8406 ':INT32) (IW-REF8407 ':INT32)
                              (GL-REF8408 ':DOUBLE) (GU-REF8409 ':DOUBLE)
                              (PIVMIN-REF8412 ':DOUBLE)
                              (RELTOL-REF8413 ':DOUBLE) (W-REF8414 ':DOUBLE)
                              (WERR-REF8415 ':DOUBLE) (INFO-REF8416 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF8407 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF8408 :DOUBLE) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF8409 :DOUBLE) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8412 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8413 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8414 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF8415 :DOUBLE) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8416 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8410 D) (E2-REF8411 E2))
      (%%DLARRK N-REF8406 IW-REF8407 GL-REF8408 GU-REF8409 D-REF8410 E2-REF8411
       PIVMIN-REF8412 RELTOL-REF8413 W-REF8414 WERR-REF8415 INFO-REF8416))))

(CFFI:DEFCFUN ("dlarrr_" %%DLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8417 ':INT32) (INFO-REF8420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8420 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8418 D) (E-REF8419 E))
      (%%DLARRR N-REF8417 D-REF8418 E-REF8419 INFO-REF8420))))

(CFFI:DEFCFUN ("dlarrv_" %%DLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8421 ':INT32) (VL-REF8422 ':DOUBLE)
                              (VU-REF8423 ':DOUBLE) (PIVMIN-REF8426 ':DOUBLE)
                              (M-REF8428 ':INT32) (DOL-REF8429 ':INT32)
                              (DOU-REF8430 ':INT32) (MINRGP-REF8431 ':DOUBLE)
                              (RTOL1-REF8432 ':DOUBLE) (RTOL2-REF8433 ':DOUBLE)
                              (LDZ-REF8441 ':INT32) (INFO-REF8445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8422 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8423 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8426 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8428 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8429 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8430 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8431 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8432 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8433 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8441 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8424 D) (L-REF8425 L)
                                            (ISPLIT-REF8427 ISPLIT)
                                            (W-REF8434 W) (WERR-REF8435 WERR)
                                            (WGAP-REF8436 WGAP)
                                            (IBLOCK-REF8437 IBLOCK)
                                            (INDEXW-REF8438 INDEXW)
                                            (GERS-REF8439 GERS) (Z-REF8440 Z)
                                            (ISUPPZ-REF8442 ISUPPZ)
                                            (WORK-REF8443 WORK)
                                            (IWORK-REF8444 IWORK))
      (%%DLARRV N-REF8421 VL-REF8422 VU-REF8423 D-REF8424 L-REF8425
       PIVMIN-REF8426 ISPLIT-REF8427 M-REF8428 DOL-REF8429 DOU-REF8430
       MINRGP-REF8431 RTOL1-REF8432 RTOL2-REF8433 W-REF8434 WERR-REF8435
       WGAP-REF8436 IBLOCK-REF8437 INDEXW-REF8438 GERS-REF8439 Z-REF8440
       LDZ-REF8441 ISUPPZ-REF8442 WORK-REF8443 IWORK-REF8444 INFO-REF8445))))

(CFFI:DEFCFUN ("dlarscl2_" %%DLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %DLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8446 ':INT32) (N-REF8447 ':INT32)
                              (LDX-REF8450 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8446 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8447 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8450 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8448 D) (X-REF8449 X))
      (%%DLARSCL2 M-REF8446 N-REF8447 D-REF8448 X-REF8449 LDX-REF8450))))

(CFFI:DEFCFUN ("dlartg_" %%DLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8451 ':DOUBLE) (G-REF8452 ':DOUBLE)
                              (CS-REF8453 ':DOUBLE) (SN-REF8454 ':DOUBLE)
                              (R-REF8455 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8451 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8452 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8453 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8454 :DOUBLE) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8455 :DOUBLE) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTG F-REF8451 G-REF8452 CS-REF8453 SN-REF8454 R-REF8455))))

(CFFI:DEFCFUN ("dlartgp_" %%DLARTGP :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8456 ':DOUBLE) (G-REF8457 ':DOUBLE)
                              (CS-REF8458 ':DOUBLE) (SN-REF8459 ':DOUBLE)
                              (R-REF8460 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8456 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8457 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8458 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8459 :DOUBLE) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8460 :DOUBLE) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGP F-REF8456 G-REF8457 CS-REF8458 SN-REF8459 R-REF8460))))

(CFFI:DEFCFUN ("dlartgs_" %%DLARTGS :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (X :POINTER)
  (Y :POINTER)
  (SIGMA :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %DLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8461 ':DOUBLE) (Y-REF8462 ':DOUBLE)
                              (SIGMA-REF8463 ':DOUBLE) (CS-REF8464 ':DOUBLE)
                              (SN-REF8465 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8461 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8462 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8463 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8464 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8465 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGS X-REF8461 Y-REF8462 SIGMA-REF8463 CS-REF8464 SN-REF8465))))

(CFFI:DEFCFUN ("dlartv_" %%DLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8466 ':INT32) (INCX-REF8468 ':INT32)
                              (INCY-REF8470 ':INT32) (INCC-REF8473 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8468 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8470 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8473 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8467 X) (Y-REF8469 Y)
                                            (C-REF8471 C) (S-REF8472 S))
      (%%DLARTV N-REF8466 X-REF8467 INCX-REF8468 Y-REF8469 INCY-REF8470
       C-REF8471 S-REF8472 INCC-REF8473))))

(CFFI:DEFCFUN ("dlaruv_" %%DLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %DLARUV (ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARUV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8475 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8475 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8474 ISEED) (X-REF8476 X))
      (%%DLARUV ISEED-REF8474 N-REF8475 X-REF8476))))

(CFFI:DEFCFUN ("dlarz_" %%DLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8478 ':INT32) (N-REF8479 ':INT32)
                              (L-REF8480 ':INT32) (INCV-REF8482 ':INT32)
                              (TAU-REF8483 ':DOUBLE) (LDC-REF8485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8478 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8479 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8480 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8482 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8483 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8485 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8481 V) (C-REF8484 C)
                                            (WORK-REF8486 WORK))
      (%%DLARZ SIDE M-REF8478 N-REF8479 L-REF8480 V-REF8481 INCV-REF8482
       TAU-REF8483 C-REF8484 LDC-REF8485 WORK-REF8486))))

(CFFI:DEFCFUN ("dlarzb_" %%DLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8491 ':INT32) (N-REF8492 ':INT32)
                              (K-REF8493 ':INT32) (L-REF8494 ':INT32)
                              (LDV-REF8496 ':INT32) (LDT-REF8498 ':INT32)
                              (LDC-REF8500 ':INT32) (LDWORK-REF8502 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8491 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8493 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8494 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8496 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8498 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8500 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8502 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8495 V) (T-REF8497 T)
                                            (C-REF8499 C) (WORK-REF8501 WORK))
      (%%DLARZB SIDE TRANS DIRECT STOREV M-REF8491 N-REF8492 K-REF8493
       L-REF8494 V-REF8495 LDV-REF8496 T-REF8497 LDT-REF8498 C-REF8499
       LDC-REF8500 WORK-REF8501 LDWORK-REF8502))))

(CFFI:DEFCFUN ("dlarzt_" %%DLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %DLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8505 ':INT32) (K-REF8506 ':INT32)
                              (LDV-REF8508 ':INT32) (LDT-REF8511 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8505 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8506 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8508 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8511 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8507 V) (TAU-REF8509 TAU)
                                            (T-REF8510 T))
      (%%DLARZT DIRECT STOREV N-REF8505 K-REF8506 V-REF8507 LDV-REF8508
       TAU-REF8509 T-REF8510 LDT-REF8511))))

(CFFI:DEFCFUN ("dlas2_" %%DLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER))

(COMMON-LISP:DEFUN %DLAS2 (F G H SSMIN SSMAX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAS2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8512 ':DOUBLE) (G-REF8513 ':DOUBLE)
                              (H-REF8514 ':DOUBLE) (SSMIN-REF8515 ':DOUBLE)
                              (SSMAX-REF8516 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8512 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8513 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8514 :DOUBLE) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8515 :DOUBLE) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8516 :DOUBLE) SSMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAS2 F-REF8512 G-REF8513 H-REF8514 SSMIN-REF8515 SSMAX-REF8516))))

(CFFI:DEFCFUN ("dlascl_" %%DLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8518 ':INT32) (KU-REF8519 ':INT32)
                              (CFROM-REF8520 ':DOUBLE) (CTO-REF8521 ':DOUBLE)
                              (M-REF8522 ':INT32) (N-REF8523 ':INT32)
                              (LDA-REF8525 ':INT32) (INFO-REF8526 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8518 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8519 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8520 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8521 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8522 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8523 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8525 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8526 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8524 A))
      (%%DLASCL TYPE KL-REF8518 KU-REF8519 CFROM-REF8520 CTO-REF8521 M-REF8522
       N-REF8523 A-REF8524 LDA-REF8525 INFO-REF8526))))

(CFFI:DEFCFUN ("dlascl2_" %%DLASCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %DLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8527 ':INT32) (N-REF8528 ':INT32)
                              (LDX-REF8531 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8527 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8528 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8531 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8529 D) (X-REF8530 X))
      (%%DLASCL2 M-REF8527 N-REF8528 D-REF8529 X-REF8530 LDX-REF8531))))

(CFFI:DEFCFUN ("dlasd0_" %%DLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (SMLSIZ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD0 (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8532 ':INT32) (SQRE-REF8533 ':INT32)
                              (LDU-REF8537 ':INT32) (LDVT-REF8539 ':INT32)
                              (SMLSIZ-REF8540 ':INT32) (INFO-REF8543 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8533 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8537 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8539 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8540 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8543 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8534 D) (E-REF8535 E)
                                            (U-REF8536 U) (VT-REF8538 VT)
                                            (IWORK-REF8541 IWORK)
                                            (WORK-REF8542 WORK))
      (%%DLASD0 N-REF8532 SQRE-REF8533 D-REF8534 E-REF8535 U-REF8536
       LDU-REF8537 VT-REF8538 LDVT-REF8539 SMLSIZ-REF8540 IWORK-REF8541
       WORK-REF8542 INFO-REF8543))))

(CFFI:DEFCFUN ("dlasd1_" %%DLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (IDXQ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD1
                   (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8544 ':INT32) (NR-REF8545 ':INT32)
                              (SQRE-REF8546 ':INT32) (ALPHA-REF8548 ':DOUBLE)
                              (BETA-REF8549 ':DOUBLE) (LDU-REF8551 ':INT32)
                              (LDVT-REF8553 ':INT32) (INFO-REF8557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8544 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8545 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8546 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8548 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8549 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8551 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8553 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8557 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8547 D) (U-REF8550 U)
                                            (VT-REF8552 VT) (IDXQ-REF8554 IDXQ)
                                            (IWORK-REF8555 IWORK)
                                            (WORK-REF8556 WORK))
      (%%DLASD1 NL-REF8544 NR-REF8545 SQRE-REF8546 D-REF8547 ALPHA-REF8548
       BETA-REF8549 U-REF8550 LDU-REF8551 VT-REF8552 LDVT-REF8553 IDXQ-REF8554
       IWORK-REF8555 WORK-REF8556 INFO-REF8557))))

(CFFI:DEFCFUN ("dlasd2_" %%DLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (DSIGMA :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXP :POINTER)
  (IDX :POINTER)
  (IDXC :POINTER)
  (IDXQ :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD2
                   (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2
                    VT2 LDVT2 IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8558 ':INT32) (NR-REF8559 ':INT32)
                              (SQRE-REF8560 ':INT32) (K-REF8561 ':INT32)
                              (ALPHA-REF8564 ':DOUBLE) (BETA-REF8565 ':DOUBLE)
                              (LDU-REF8567 ':INT32) (LDVT-REF8569 ':INT32)
                              (LDU2-REF8572 ':INT32) (LDVT2-REF8574 ':INT32)
                              (INFO-REF8580 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8558 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8559 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8560 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8561 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8564 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8565 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8567 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8569 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8572 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8574 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8580 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8562 D) (Z-REF8563 Z)
                                            (U-REF8566 U) (VT-REF8568 VT)
                                            (DSIGMA-REF8570 DSIGMA)
                                            (U2-REF8571 U2) (VT2-REF8573 VT2)
                                            (IDXP-REF8575 IDXP)
                                            (IDX-REF8576 IDX)
                                            (IDXC-REF8577 IDXC)
                                            (IDXQ-REF8578 IDXQ)
                                            (COLTYP-REF8579 COLTYP))
      (%%DLASD2 NL-REF8558 NR-REF8559 SQRE-REF8560 K-REF8561 D-REF8562
       Z-REF8563 ALPHA-REF8564 BETA-REF8565 U-REF8566 LDU-REF8567 VT-REF8568
       LDVT-REF8569 DSIGMA-REF8570 U2-REF8571 LDU2-REF8572 VT2-REF8573
       LDVT2-REF8574 IDXP-REF8575 IDX-REF8576 IDXC-REF8577 IDXQ-REF8578
       COLTYP-REF8579 INFO-REF8580))))

(CFFI:DEFCFUN ("dlasd3_" %%DLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (DSIGMA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXC :POINTER)
  (CTOT :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD3
                   (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2
                    IDXC CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8581 ':INT32) (NR-REF8582 ':INT32)
                              (SQRE-REF8583 ':INT32) (K-REF8584 ':INT32)
                              (LDQ-REF8587 ':INT32) (LDU-REF8590 ':INT32)
                              (LDU2-REF8592 ':INT32) (LDVT-REF8594 ':INT32)
                              (LDVT2-REF8596 ':INT32) (INFO-REF8600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8581 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8582 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8583 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8584 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8587 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8590 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8592 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8594 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8596 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8585 D) (Q-REF8586 Q)
                                            (DSIGMA-REF8588 DSIGMA)
                                            (U-REF8589 U) (U2-REF8591 U2)
                                            (VT-REF8593 VT) (VT2-REF8595 VT2)
                                            (IDXC-REF8597 IDXC)
                                            (CTOT-REF8598 CTOT) (Z-REF8599 Z))
      (%%DLASD3 NL-REF8581 NR-REF8582 SQRE-REF8583 K-REF8584 D-REF8585
       Q-REF8586 LDQ-REF8587 DSIGMA-REF8588 U-REF8589 LDU-REF8590 U2-REF8591
       LDU2-REF8592 VT-REF8593 LDVT-REF8594 VT2-REF8595 LDVT2-REF8596
       IDXC-REF8597 CTOT-REF8598 Z-REF8599 INFO-REF8600))))

(CFFI:DEFCFUN ("dlasd4_" %%DLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (SIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8601 ':INT32) (I-REF8602 ':INT32)
                              (RHO-REF8606 ':DOUBLE) (SIGMA-REF8607 ':DOUBLE)
                              (INFO-REF8609 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8601 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8602 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8606 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8607 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8609 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8603 D) (Z-REF8604 Z)
                                            (DELTA-REF8605 DELTA)
                                            (WORK-REF8608 WORK))
      (%%DLASD4 N-REF8601 I-REF8602 D-REF8603 Z-REF8604 DELTA-REF8605
       RHO-REF8606 SIGMA-REF8607 WORK-REF8608 INFO-REF8609))))

(CFFI:DEFCFUN ("dlasd5_" %%DLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF8610 ':INT32) (RHO-REF8614 ':DOUBLE)
                              (DSIGMA-REF8615 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8610 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8614 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF8615 :DOUBLE) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8611 D) (Z-REF8612 Z)
                                            (DELTA-REF8613 DELTA)
                                            (WORK-REF8616 WORK))
      (%%DLASD5 I-REF8610 D-REF8611 Z-REF8612 DELTA-REF8613 RHO-REF8614
       DSIGMA-REF8615 WORK-REF8616))))

(CFFI:DEFCFUN ("dlasd6_" %%DLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD6
                   (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR
                    GIVCOL LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8617 ':INT32) (NL-REF8618 ':INT32)
                              (NR-REF8619 ':INT32) (SQRE-REF8620 ':INT32)
                              (ALPHA-REF8624 ':DOUBLE) (BETA-REF8625 ':DOUBLE)
                              (GIVPTR-REF8628 ':INT32) (LDGCOL-REF8630 ':INT32)
                              (LDGNUM-REF8632 ':INT32) (K-REF8637 ':INT32)
                              (C-REF8638 ':DOUBLE) (S-REF8639 ':DOUBLE)
                              (INFO-REF8642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8617 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8618 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8619 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8620 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8624 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8625 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8628 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8630 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8632 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8637 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8638 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8639 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8642 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8621 D) (VF-REF8622 VF)
                                            (VL-REF8623 VL) (IDXQ-REF8626 IDXQ)
                                            (PERM-REF8627 PERM)
                                            (GIVCOL-REF8629 GIVCOL)
                                            (GIVNUM-REF8631 GIVNUM)
                                            (POLES-REF8633 POLES)
                                            (DIFL-REF8634 DIFL)
                                            (DIFR-REF8635 DIFR) (Z-REF8636 Z)
                                            (WORK-REF8640 WORK)
                                            (IWORK-REF8641 IWORK))
      (%%DLASD6 ICOMPQ-REF8617 NL-REF8618 NR-REF8619 SQRE-REF8620 D-REF8621
       VF-REF8622 VL-REF8623 ALPHA-REF8624 BETA-REF8625 IDXQ-REF8626
       PERM-REF8627 GIVPTR-REF8628 GIVCOL-REF8629 LDGCOL-REF8630 GIVNUM-REF8631
       LDGNUM-REF8632 POLES-REF8633 DIFL-REF8634 DIFR-REF8635 Z-REF8636
       K-REF8637 C-REF8638 S-REF8639 WORK-REF8640 IWORK-REF8641 INFO-REF8642))))

(CFFI:DEFCFUN ("dlasd7_" %%DLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ZW :POINTER)
  (VF :POINTER)
  (VFW :POINTER)
  (VL :POINTER)
  (VLW :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (DSIGMA :POINTER)
  (IDX :POINTER)
  (IDXP :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD7
                   (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA
                    IDX IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VFW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VLW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8643 ':INT32) (NL-REF8644 ':INT32)
                              (NR-REF8645 ':INT32) (SQRE-REF8646 ':INT32)
                              (K-REF8647 ':INT32) (ALPHA-REF8655 ':DOUBLE)
                              (BETA-REF8656 ':DOUBLE) (GIVPTR-REF8662 ':INT32)
                              (LDGCOL-REF8664 ':INT32) (LDGNUM-REF8666 ':INT32)
                              (C-REF8667 ':DOUBLE) (S-REF8668 ':DOUBLE)
                              (INFO-REF8669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8643 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8644 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8645 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8646 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8647 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8655 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8656 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8662 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8664 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8666 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8667 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8668 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8648 D) (Z-REF8649 Z)
                                            (ZW-REF8650 ZW) (VF-REF8651 VF)
                                            (VFW-REF8652 VFW) (VL-REF8653 VL)
                                            (VLW-REF8654 VLW)
                                            (DSIGMA-REF8657 DSIGMA)
                                            (IDX-REF8658 IDX)
                                            (IDXP-REF8659 IDXP)
                                            (IDXQ-REF8660 IDXQ)
                                            (PERM-REF8661 PERM)
                                            (GIVCOL-REF8663 GIVCOL)
                                            (GIVNUM-REF8665 GIVNUM))
      (%%DLASD7 ICOMPQ-REF8643 NL-REF8644 NR-REF8645 SQRE-REF8646 K-REF8647
       D-REF8648 Z-REF8649 ZW-REF8650 VF-REF8651 VFW-REF8652 VL-REF8653
       VLW-REF8654 ALPHA-REF8655 BETA-REF8656 DSIGMA-REF8657 IDX-REF8658
       IDXP-REF8659 IDXQ-REF8660 PERM-REF8661 GIVPTR-REF8662 GIVCOL-REF8663
       LDGCOL-REF8664 GIVNUM-REF8665 LDGNUM-REF8666 C-REF8667 S-REF8668
       INFO-REF8669))))

(CFFI:DEFCFUN ("dlasd8_" %%DLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (LDDIFR :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD8
                   (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8670 ':INT32) (K-REF8671 ':INT32)
                              (LDDIFR-REF8678 ':INT32) (INFO-REF8681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8670 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8671 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF8678 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8681 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8672 D) (Z-REF8673 Z)
                                            (VF-REF8674 VF) (VL-REF8675 VL)
                                            (DIFL-REF8676 DIFL)
                                            (DIFR-REF8677 DIFR)
                                            (DSIGMA-REF8679 DSIGMA)
                                            (WORK-REF8680 WORK))
      (%%DLASD8 ICOMPQ-REF8670 K-REF8671 D-REF8672 Z-REF8673 VF-REF8674
       VL-REF8675 DIFL-REF8676 DIFR-REF8677 LDDIFR-REF8678 DSIGMA-REF8679
       WORK-REF8680 INFO-REF8681))))

(CFFI:DEFCFUN ("dlasda_" %%DLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASDA
                   (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES
                    GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8682 ':INT32) (SMLSIZ-REF8683 ':INT32)
                              (N-REF8684 ':INT32) (SQRE-REF8685 ':INT32)
                              (LDU-REF8689 ':INT32) (LDGCOL-REF8698 ':INT32)
                              (INFO-REF8705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8682 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8683 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8684 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8685 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8689 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8698 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8686 D) (E-REF8687 E)
                                            (U-REF8688 U) (VT-REF8690 VT)
                                            (K-REF8691 K) (DIFL-REF8692 DIFL)
                                            (DIFR-REF8693 DIFR) (Z-REF8694 Z)
                                            (POLES-REF8695 POLES)
                                            (GIVPTR-REF8696 GIVPTR)
                                            (GIVCOL-REF8697 GIVCOL)
                                            (PERM-REF8699 PERM)
                                            (GIVNUM-REF8700 GIVNUM)
                                            (C-REF8701 C) (S-REF8702 S)
                                            (WORK-REF8703 WORK)
                                            (IWORK-REF8704 IWORK))
      (%%DLASDA ICOMPQ-REF8682 SMLSIZ-REF8683 N-REF8684 SQRE-REF8685 D-REF8686
       E-REF8687 U-REF8688 LDU-REF8689 VT-REF8690 K-REF8691 DIFL-REF8692
       DIFR-REF8693 Z-REF8694 POLES-REF8695 GIVPTR-REF8696 GIVCOL-REF8697
       LDGCOL-REF8698 PERM-REF8699 GIVNUM-REF8700 C-REF8701 S-REF8702
       WORK-REF8703 IWORK-REF8704 INFO-REF8705))))

(CFFI:DEFCFUN ("dlasdq_" %%DLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SQRE :POINTER)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASDQ
                   (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF8707 ':INT32) (N-REF8708 ':INT32)
                              (NCVT-REF8709 ':INT32) (NRU-REF8710 ':INT32)
                              (NCC-REF8711 ':INT32) (LDVT-REF8715 ':INT32)
                              (LDU-REF8717 ':INT32) (LDC-REF8719 ':INT32)
                              (INFO-REF8721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8707 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF8709 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF8710 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8711 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8715 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8717 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8719 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8712 D) (E-REF8713 E)
                                            (VT-REF8714 VT) (U-REF8716 U)
                                            (C-REF8718 C) (WORK-REF8720 WORK))
      (%%DLASDQ UPLO SQRE-REF8707 N-REF8708 NCVT-REF8709 NRU-REF8710
       NCC-REF8711 D-REF8712 E-REF8713 VT-REF8714 LDVT-REF8715 U-REF8716
       LDU-REF8717 C-REF8718 LDC-REF8719 WORK-REF8720 INFO-REF8721))))

(CFFI:DEFCFUN ("dlasdt_" %%DLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (LVL :POINTER)
  (ND :POINTER)
  (INODE :POINTER)
  (NDIML :POINTER)
  (NDIMR :POINTER)
  (MSUB :POINTER))

(COMMON-LISP:DEFUN %DLASDT (N LVL ND INODE NDIML NDIMR MSUB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIML)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8722 ':INT32) (LVL-REF8723 ':INT32)
                              (ND-REF8724 ':INT32) (MSUB-REF8728 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF8723 :INT32) LVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8724 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF8728 :INT32) MSUB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF8725 INODE)
                                            (NDIML-REF8726 NDIML)
                                            (NDIMR-REF8727 NDIMR))
      (%%DLASDT N-REF8722 LVL-REF8723 ND-REF8724 INODE-REF8725 NDIML-REF8726
       NDIMR-REF8727 MSUB-REF8728))))

(CFFI:DEFCFUN ("dlaset_" %%DLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8730 ':INT32) (N-REF8731 ':INT32)
                              (ALPHA-REF8732 ':DOUBLE) (BETA-REF8733 ':DOUBLE)
                              (LDA-REF8735 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8730 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8732 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8733 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8735 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8734 A))
      (%%DLASET UPLO M-REF8730 N-REF8731 ALPHA-REF8732 BETA-REF8733 A-REF8734
       LDA-REF8735))))

(CFFI:DEFCFUN ("dlasq1_" %%DLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8736 ':INT32) (INFO-REF8740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8736 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8737 D) (E-REF8738 E)
                                            (WORK-REF8739 WORK))
      (%%DLASQ1 N-REF8736 D-REF8737 E-REF8738 WORK-REF8739 INFO-REF8740))))

(CFFI:DEFCFUN ("dlasq2_" %%DLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASQ2 (N Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8741 ':INT32) (INFO-REF8743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8743 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8742 Z))
      (%%DLASQ2 N-REF8741 Z-REF8742 INFO-REF8743))))

(CFFI:DEFCFUN ("dlasq3_" %%DLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (SIGMA :POINTER)
  (DESIG :POINTER)
  (QMAX :POINTER)
  (NFAIL :POINTER)
  (ITER :POINTER)
  (NDIV :POINTER)
  (IEEE :POINTER)
  (TTYPE :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (G :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLASQ3
                   (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE
                    DMIN1 DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DESIG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT QMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8744 ':INT32) (N0-REF8745 ':INT32)
                              (PP-REF8747 ':INT32) (DMIN-REF8748 ':DOUBLE)
                              (SIGMA-REF8749 ':DOUBLE) (DESIG-REF8750 ':DOUBLE)
                              (QMAX-REF8751 ':DOUBLE) (NFAIL-REF8752 ':INT32)
                              (ITER-REF8753 ':INT32) (NDIV-REF8754 ':INT32)
                              (IEEE-REF8755 ':INT32) (TTYPE-REF8756 ':INT32)
                              (DMIN1-REF8757 ':DOUBLE) (DMIN2-REF8758 ':DOUBLE)
                              (DN-REF8759 ':DOUBLE) (DN1-REF8760 ':DOUBLE)
                              (DN2-REF8761 ':DOUBLE) (G-REF8762 ':DOUBLE)
                              (TAU-REF8763 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8744 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8745 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8747 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8748 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8749 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF8750 :DOUBLE) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF8751 :DOUBLE) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF8752 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF8753 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF8754 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8755 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8756 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8757 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8758 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8759 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8760 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8761 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8762 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8763 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8746 Z))
      (%%DLASQ3 I0-REF8744 N0-REF8745 Z-REF8746 PP-REF8747 DMIN-REF8748
       SIGMA-REF8749 DESIG-REF8750 QMAX-REF8751 NFAIL-REF8752 ITER-REF8753
       NDIV-REF8754 IEEE-REF8755 TTYPE-REF8756 DMIN1-REF8757 DMIN2-REF8758
       DN-REF8759 DN1-REF8760 DN2-REF8761 G-REF8762 TAU-REF8763))))

(CFFI:DEFCFUN ("dlasq4_" %%DLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (N0IN :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (TAU :POINTER)
  (TTYPE :POINTER)
  (G :POINTER))

(COMMON-LISP:DEFUN %DLASQ4
                   (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8764 ':INT32) (N0-REF8765 ':INT32)
                              (PP-REF8767 ':INT32) (N0IN-REF8768 ':INT32)
                              (DMIN-REF8769 ':DOUBLE) (DMIN1-REF8770 ':DOUBLE)
                              (DMIN2-REF8771 ':DOUBLE) (DN-REF8772 ':DOUBLE)
                              (DN1-REF8773 ':DOUBLE) (DN2-REF8774 ':DOUBLE)
                              (TAU-REF8775 ':DOUBLE) (TTYPE-REF8776 ':INT32)
                              (G-REF8777 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8764 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8765 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8767 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF8768 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8769 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8770 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8771 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8772 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8773 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8774 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8775 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8776 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8777 :DOUBLE) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8766 Z))
      (%%DLASQ4 I0-REF8764 N0-REF8765 Z-REF8766 PP-REF8767 N0IN-REF8768
       DMIN-REF8769 DMIN1-REF8770 DMIN2-REF8771 DN-REF8772 DN1-REF8773
       DN2-REF8774 TAU-REF8775 TTYPE-REF8776 G-REF8777))))

(CFFI:DEFCFUN ("dlasq5_" %%DLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (TAU :POINTER)
  (SIGMA :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER)
  (IEEE :POINTER)
  (EPS :POINTER))

(COMMON-LISP:DEFUN %DLASQ5
                   (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE
                    EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8778 ':INT32) (N0-REF8779 ':INT32)
                              (PP-REF8781 ':INT32) (TAU-REF8782 ':DOUBLE)
                              (SIGMA-REF8783 ':DOUBLE) (DMIN-REF8784 ':DOUBLE)
                              (DMIN1-REF8785 ':DOUBLE) (DMIN2-REF8786 ':DOUBLE)
                              (DN-REF8787 ':DOUBLE) (DNM1-REF8788 ':DOUBLE)
                              (DNM2-REF8789 ':DOUBLE) (IEEE-REF8790 ':INT32)
                              (EPS-REF8791 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8778 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8779 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8781 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8782 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8783 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8784 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8785 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8786 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8787 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8788 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8789 :DOUBLE) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8790 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF8791 :DOUBLE) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8780 Z))
      (%%DLASQ5 I0-REF8778 N0-REF8779 Z-REF8780 PP-REF8781 TAU-REF8782
       SIGMA-REF8783 DMIN-REF8784 DMIN1-REF8785 DMIN2-REF8786 DN-REF8787
       DNM1-REF8788 DNM2-REF8789 IEEE-REF8790 EPS-REF8791))))

(CFFI:DEFCFUN ("dlasq6_" %%DLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER))

(COMMON-LISP:DEFUN %DLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8792 ':INT32) (N0-REF8793 ':INT32)
                              (PP-REF8795 ':INT32) (DMIN-REF8796 ':DOUBLE)
                              (DMIN1-REF8797 ':DOUBLE) (DMIN2-REF8798 ':DOUBLE)
                              (DN-REF8799 ':DOUBLE) (DNM1-REF8800 ':DOUBLE)
                              (DNM2-REF8801 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8792 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8793 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8795 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8796 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8797 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8798 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8799 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8800 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8801 :DOUBLE) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8794 Z))
      (%%DLASQ6 I0-REF8792 N0-REF8793 Z-REF8794 PP-REF8795 DMIN-REF8796
       DMIN1-REF8797 DMIN2-REF8798 DN-REF8799 DNM1-REF8800 DNM2-REF8801))))

(CFFI:DEFCFUN ("dlasr_" %%DLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8805 ':INT32) (N-REF8806 ':INT32)
                              (LDA-REF8810 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8805 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8806 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8810 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8807 C) (S-REF8808 S)
                                            (A-REF8809 A))
      (%%DLASR SIDE PIVOT DIRECT M-REF8805 N-REF8806 C-REF8807 S-REF8808
       A-REF8809 LDA-REF8810))))

(CFFI:DEFCFUN ("dlasrt_" %%DLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (ID :STRING)
  (N :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8812 ':INT32) (INFO-REF8814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8812 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8814 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8813 D))
      (%%DLASRT ID N-REF8812 D-REF8813 INFO-REF8814))))

(CFFI:DEFCFUN ("dlassq_" %%DLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %DLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8815 ':INT32) (INCX-REF8817 ':INT32)
                              (SCALE-REF8818 ':DOUBLE) (SUMSQ-REF8819 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8815 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8817 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8818 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF8819 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8816 X))
      (%%DLASSQ N-REF8815 X-REF8816 INCX-REF8817 SCALE-REF8818 SUMSQ-REF8819))))

(CFFI:DEFCFUN ("dlasv2_" %%DLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER)
  (SNR :POINTER)
  (CSR :POINTER)
  (SNL :POINTER)
  (CSL :POINTER))

(COMMON-LISP:DEFUN %DLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8820 ':DOUBLE) (G-REF8821 ':DOUBLE)
                              (H-REF8822 ':DOUBLE) (SSMIN-REF8823 ':DOUBLE)
                              (SSMAX-REF8824 ':DOUBLE) (SNR-REF8825 ':DOUBLE)
                              (CSR-REF8826 ':DOUBLE) (SNL-REF8827 ':DOUBLE)
                              (CSL-REF8828 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8820 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8821 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8822 :DOUBLE) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8823 :DOUBLE) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8824 :DOUBLE) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF8825 :DOUBLE) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF8826 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF8827 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF8828 :DOUBLE) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLASV2 F-REF8820 G-REF8821 H-REF8822 SSMIN-REF8823 SSMAX-REF8824
       SNR-REF8825 CSR-REF8826 SNL-REF8827 CSL-REF8828))))

(CFFI:DEFCFUN ("dlaswlq_" %%DLASWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8829 ':INT32) (N-REF8830 ':INT32)
                              (MB-REF8831 ':INT32) (NB-REF8832 ':INT32)
                              (LDA-REF8834 ':INT32) (LDT-REF8836 ':INT32)
                              (LWORK-REF8838 ':INT32) (INFO-REF8839 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8829 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8830 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8831 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8832 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8834 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8836 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8838 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8839 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8833 A) (T-REF8835 T)
                                            (WORK-REF8837 WORK))
      (%%DLASWLQ M-REF8829 N-REF8830 MB-REF8831 NB-REF8832 A-REF8833
       LDA-REF8834 T-REF8835 LDT-REF8836 WORK-REF8837 LWORK-REF8838
       INFO-REF8839))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
  %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
  %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
  %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
  %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
  %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
  %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
  %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
  %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
  %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
  %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
  %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
  %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
  %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
  %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
  %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
  %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
  %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
  %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
  %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
  %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
  %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
  %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
  %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
  %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
  %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
  %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
  %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
  %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
  %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
  %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
  %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
  %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
  %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
  %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
  %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
  %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
  %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
  %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
  %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
  %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
  %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
  %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP
  %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL
  %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3
  %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0
  %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4
  %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR
  %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB
  %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX
  %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB
  %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF
  %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV
  %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS
  %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT
  %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0
  %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5
  %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA
  %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2
  %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6
  %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ
  %DLASWLQ))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
                                        '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD)
                                          ("DGBCON" "dgbcon_" %%DGBCON %DGBCON)
                                          ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU)
                                          ("DGBEQUB" "dgbequb_" %%DGBEQUB
                                           %DGBEQUB)
                                          ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS)
                                          ("DGBRFSX" "dgbrfsx_" %%DGBRFSX
                                           %DGBRFSX)
                                          ("DGBSV" "dgbsv_" %%DGBSV %DGBSV)
                                          ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX)
                                          ("DGBSVXX" "dgbsvxx_" %%DGBSVXX
                                           %DGBSVXX)
                                          ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2)
                                          ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF)
                                          ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS)
                                          ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK)
                                          ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL)
                                          ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2)
                                          ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD)
                                          ("DGECON" "dgecon_" %%DGECON %DGECON)
                                          ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU)
                                          ("DGEEQUB" "dgeequb_" %%DGEEQUB
                                           %DGEEQUB)
                                          ("DGEES" "dgees_" %%DGEES %DGEES)
                                          ("DGEESX" "dgeesx_" %%DGEESX %DGEESX)
                                          ("DGEEV" "dgeev_" %%DGEEV %DGEEV)
                                          ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX)
                                          ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2)
                                          ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD)
                                          ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV)
                                          ("DGELQ" "dgelq_" %%DGELQ %DGELQ)
                                          ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2)
                                          ("DGELQF" "dgelqf_" %%DGELQF %DGELQF)
                                          ("DGELQT" "dgelqt_" %%DGELQT %DGELQT)
                                          ("DGELQT3" "dgelqt3_" %%DGELQT3
                                           %DGELQT3)
                                          ("DGELS" "dgels_" %%DGELS %DGELS)
                                          ("DGELSD" "dgelsd_" %%DGELSD %DGELSD)
                                          ("DGELSS" "dgelss_" %%DGELSS %DGELSS)
                                          ("DGELSY" "dgelsy_" %%DGELSY %DGELSY)
                                          ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ)
                                          ("DGEMLQT" "dgemlqt_" %%DGEMLQT
                                           %DGEMLQT)
                                          ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR)
                                          ("DGEMQRT" "dgemqrt_" %%DGEMQRT
                                           %DGEMQRT)
                                          ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2)
                                          ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF)
                                          ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3)
                                          ("DGEQR" "dgeqr_" %%DGEQR %DGEQR)
                                          ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2)
                                          ("DGEQR2P" "dgeqr2p_" %%DGEQR2P
                                           %DGEQR2P)
                                          ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF)
                                          ("DGEQRFP" "dgeqrfp_" %%DGEQRFP
                                           %DGEQRFP)
                                          ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT)
                                          ("DGEQRT2" "dgeqrt2_" %%DGEQRT2
                                           %DGEQRT2)
                                          ("DGEQRT3" "dgeqrt3_" %%DGEQRT3
                                           %DGEQRT3)
                                          ("DGERFS" "dgerfs_" %%DGERFS %DGERFS)
                                          ("DGERFSX" "dgerfsx_" %%DGERFSX
                                           %DGERFSX)
                                          ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2)
                                          ("DGERQF" "dgerqf_" %%DGERQF %DGERQF)
                                          ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2)
                                          ("DGESDD" "dgesdd_" %%DGESDD %DGESDD)
                                          ("DGESV" "dgesv_" %%DGESV %DGESV)
                                          ("DGESVD" "dgesvd_" %%DGESVD %DGESVD)
                                          ("DGESVDQ" "dgesvdq_" %%DGESVDQ
                                           %DGESVDQ)
                                          ("DGESVDX" "dgesvdx_" %%DGESVDX
                                           %DGESVDX)
                                          ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ)
                                          ("DGESVX" "dgesvx_" %%DGESVX %DGESVX)
                                          ("DGESVXX" "dgesvxx_" %%DGESVXX
                                           %DGESVXX)
                                          ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2)
                                          ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2)
                                          ("DGETRF" "dgetrf_" %%DGETRF %DGETRF)
                                          ("DGETRF2" "dgetrf2_" %%DGETRF2
                                           %DGETRF2)
                                          ("DGETRI" "dgetri_" %%DGETRI %DGETRI)
                                          ("DGETRS" "dgetrs_" %%DGETRS %DGETRS)
                                          ("DGETSLS" "dgetsls_" %%DGETSLS
                                           %DGETSLS)
                                          ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK)
                                          ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL)
                                          ("DGGES" "dgges_" %%DGGES %DGGES)
                                          ("DGGES3" "dgges3_" %%DGGES3 %DGGES3)
                                          ("DGGESX" "dggesx_" %%DGGESX %DGGESX)
                                          ("DGGEV" "dggev_" %%DGGEV %DGGEV)
                                          ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3)
                                          ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX)
                                          ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM)
                                          ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3)
                                          ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD)
                                          ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE)
                                          ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF)
                                          ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF)
                                          ("DGGSVD3" "dggsvd3_" %%DGGSVD3
                                           %DGGSVD3)
                                          ("DGGSVP3" "dggsvp3_" %%DGGSVP3
                                           %DGGSVP3)
                                          ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0)
                                          ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1)
                                          ("DGTCON" "dgtcon_" %%DGTCON %DGTCON)
                                          ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS)
                                          ("DGTSV" "dgtsv_" %%DGTSV %DGTSV)
                                          ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX)
                                          ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF)
                                          ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS)
                                          ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2)
                                          ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ)
                                          ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN)
                                          ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR)
                                          ("DISNAN" "disnan_" %%DISNAN %DISNAN)
                                          ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV
                                           %DLA_GBAMV)
                                          ("DLA_GBRCOND" "dla_gbrcond_"
                                           %%DLA_GBRCOND %DLA_GBRCOND)
                                          ("DLA_GBRFSX_EXTENDED"
                                           "dla_gbrfsx_extended_"
                                           %%DLA_GBRFSX_EXTENDED
                                           %DLA_GBRFSX_EXTENDED)
                                          ("DLA_GBRPVGRW" "dla_gbrpvgrw_"
                                           %%DLA_GBRPVGRW %DLA_GBRPVGRW)
                                          ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV
                                           %DLA_GEAMV)
                                          ("DLA_GERCOND" "dla_gercond_"
                                           %%DLA_GERCOND %DLA_GERCOND)
                                          ("DLA_GERFSX_EXTENDED"
                                           "dla_gerfsx_extended_"
                                           %%DLA_GERFSX_EXTENDED
                                           %DLA_GERFSX_EXTENDED)
                                          ("DLA_GERPVGRW" "dla_gerpvgrw_"
                                           %%DLA_GERPVGRW %DLA_GERPVGRW)
                                          ("DLA_LIN_BERR" "dla_lin_berr_"
                                           %%DLA_LIN_BERR %DLA_LIN_BERR)
                                          ("DLA_PORCOND" "dla_porcond_"
                                           %%DLA_PORCOND %DLA_PORCOND)
                                          ("DLA_PORFSX_EXTENDED"
                                           "dla_porfsx_extended_"
                                           %%DLA_PORFSX_EXTENDED
                                           %DLA_PORFSX_EXTENDED)
                                          ("DLA_PORPVGRW" "dla_porpvgrw_"
                                           %%DLA_PORPVGRW %DLA_PORPVGRW)
                                          ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV
                                           %DLA_SYAMV)
                                          ("DLA_SYRCOND" "dla_syrcond_"
                                           %%DLA_SYRCOND %DLA_SYRCOND)
                                          ("DLA_SYRFSX_EXTENDED"
                                           "dla_syrfsx_extended_"
                                           %%DLA_SYRFSX_EXTENDED
                                           %DLA_SYRFSX_EXTENDED)
                                          ("DLA_SYRPVGRW" "dla_syrpvgrw_"
                                           %%DLA_SYRPVGRW %DLA_SYRPVGRW)
                                          ("DLA_WWADDW" "dla_wwaddw_"
                                           %%DLA_WWADDW %DLA_WWADDW)
                                          ("DLABAD" "dlabad_" %%DLABAD %DLABAD)
                                          ("DLABRD" "dlabrd_" %%DLABRD %DLABRD)
                                          ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2)
                                          ("DLACON" "dlacon_" %%DLACON %DLACON)
                                          ("DLACPY" "dlacpy_" %%DLACPY %DLACPY)
                                          ("DLADIV" "dladiv_" %%DLADIV %DLADIV)
                                          ("DLAE2" "dlae2_" %%DLAE2 %DLAE2)
                                          ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ)
                                          ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0)
                                          ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1)
                                          ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2)
                                          ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3)
                                          ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4)
                                          ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5)
                                          ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6)
                                          ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7)
                                          ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8)
                                          ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9)
                                          ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA)
                                          ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN)
                                          ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2)
                                          ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC)
                                          ("DLAG2" "dlag2_" %%DLAG2 %DLAG2)
                                          ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S)
                                          ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2)
                                          ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF)
                                          ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM)
                                          ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS)
                                          ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2)
                                          ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR)
                                          ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2)
                                          ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1)
                                          ("DLAISNAN" "dlaisnan_" %%DLAISNAN
                                           %DLAISNAN)
                                          ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2)
                                          ("DLALS0" "dlals0_" %%DLALS0 %DLALS0)
                                          ("DLALSA" "dlalsa_" %%DLALSA %DLALSA)
                                          ("DLALSD" "dlalsd_" %%DLALSD %DLALSD)
                                          ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG)
                                          ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ
                                           %DLAMSWLQ)
                                          ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR
                                           %DLAMTSQR)
                                          ("DLANEG" "dlaneg_" %%DLANEG %DLANEG)
                                          ("DLANGB" "dlangb_" %%DLANGB %DLANGB)
                                          ("DLANGE" "dlange_" %%DLANGE %DLANGE)
                                          ("DLANGT" "dlangt_" %%DLANGT %DLANGT)
                                          ("DLANHS" "dlanhs_" %%DLANHS %DLANHS)
                                          ("DLANSB" "dlansb_" %%DLANSB %DLANSB)
                                          ("DLANSF" "dlansf_" %%DLANSF %DLANSF)
                                          ("DLANSP" "dlansp_" %%DLANSP %DLANSP)
                                          ("DLANST" "dlanst_" %%DLANST %DLANST)
                                          ("DLANSY" "dlansy_" %%DLANSY %DLANSY)
                                          ("DLANTB" "dlantb_" %%DLANTB %DLANTB)
                                          ("DLANTP" "dlantp_" %%DLANTP %DLANTP)
                                          ("DLANTR" "dlantr_" %%DLANTR %DLANTR)
                                          ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2)
                                          ("DLAORHR_COL_GETRFNP"
                                           "dlaorhr_col_getrfnp_"
                                           %%DLAORHR_COL_GETRFNP
                                           %DLAORHR_COL_GETRFNP)
                                          ("DLAORHR_COL_GETRFNP2"
                                           "dlaorhr_col_getrfnp2_"
                                           %%DLAORHR_COL_GETRFNP2
                                           %DLAORHR_COL_GETRFNP2)
                                          ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL)
                                          ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR)
                                          ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT)
                                          ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2)
                                          ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3)
                                          ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB)
                                          ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE)
                                          ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2)
                                          ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS)
                                          ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0)
                                          ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1)
                                          ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2)
                                          ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3)
                                          ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4)
                                          ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5)
                                          ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB)
                                          ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP)
                                          ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY)
                                          ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR)
                                          ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V)
                                          ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V)
                                          ("DLARF" "dlarf_" %%DLARF %DLARF)
                                          ("DLARFB" "dlarfb_" %%DLARFB %DLARFB)
                                          ("DLARFG" "dlarfg_" %%DLARFG %DLARFG)
                                          ("DLARFGP" "dlarfgp_" %%DLARFGP
                                           %DLARFGP)
                                          ("DLARFT" "dlarft_" %%DLARFT %DLARFT)
                                          ("DLARFX" "dlarfx_" %%DLARFX %DLARFX)
                                          ("DLARFY" "dlarfy_" %%DLARFY %DLARFY)
                                          ("DLARGV" "dlargv_" %%DLARGV %DLARGV)
                                          ("DLARNV" "dlarnv_" %%DLARNV %DLARNV)
                                          ("DLARRA" "dlarra_" %%DLARRA %DLARRA)
                                          ("DLARRB" "dlarrb_" %%DLARRB %DLARRB)
                                          ("DLARRC" "dlarrc_" %%DLARRC %DLARRC)
                                          ("DLARRD" "dlarrd_" %%DLARRD %DLARRD)
                                          ("DLARRE" "dlarre_" %%DLARRE %DLARRE)
                                          ("DLARRF" "dlarrf_" %%DLARRF %DLARRF)
                                          ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ)
                                          ("DLARRK" "dlarrk_" %%DLARRK %DLARRK)
                                          ("DLARRR" "dlarrr_" %%DLARRR %DLARRR)
                                          ("DLARRV" "dlarrv_" %%DLARRV %DLARRV)
                                          ("DLARSCL2" "dlarscl2_" %%DLARSCL2
                                           %DLARSCL2)
                                          ("DLARTG" "dlartg_" %%DLARTG %DLARTG)
                                          ("DLARTGP" "dlartgp_" %%DLARTGP
                                           %DLARTGP)
                                          ("DLARTGS" "dlartgs_" %%DLARTGS
                                           %DLARTGS)
                                          ("DLARTV" "dlartv_" %%DLARTV %DLARTV)
                                          ("DLARUV" "dlaruv_" %%DLARUV %DLARUV)
                                          ("DLARZ" "dlarz_" %%DLARZ %DLARZ)
                                          ("DLARZB" "dlarzb_" %%DLARZB %DLARZB)
                                          ("DLARZT" "dlarzt_" %%DLARZT %DLARZT)
                                          ("DLAS2" "dlas2_" %%DLAS2 %DLAS2)
                                          ("DLASCL" "dlascl_" %%DLASCL %DLASCL)
                                          ("DLASCL2" "dlascl2_" %%DLASCL2
                                           %DLASCL2)
                                          ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0)
                                          ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1)
                                          ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2)
                                          ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3)
                                          ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4)
                                          ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5)
                                          ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6)
                                          ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7)
                                          ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8)
                                          ("DLASDA" "dlasda_" %%DLASDA %DLASDA)
                                          ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ)
                                          ("DLASDT" "dlasdt_" %%DLASDT %DLASDT)
                                          ("DLASET" "dlaset_" %%DLASET %DLASET)
                                          ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1)
                                          ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2)
                                          ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3)
                                          ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4)
                                          ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5)
                                          ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6)
                                          ("DLASR" "dlasr_" %%DLASR %DLASR)
                                          ("DLASRT" "dlasrt_" %%DLASRT %DLASRT)
                                          ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ)
                                          ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2)
                                          ("DLASWLQ" "dlaswlq_" %%DLASWLQ
                                           %DLASWLQ)))

(COMMON-LISP:EXPORT
 '(%DGBBRD %DGBCON %DGBEQU %DGBEQUB %DGBRFS %DGBRFSX %DGBSV %DGBSVX %DGBSVXX
   %DGBTF2 %DGBTRF %DGBTRS %DGEBAK %DGEBAL %DGEBD2 %DGEBRD %DGECON %DGEEQU
   %DGEEQUB %DGEES %DGEESX %DGEEV %DGEEVX %DGEHD2 %DGEHRD %DGEJSV %DGELQ
   %DGELQ2 %DGELQF %DGELQT %DGELQT3 %DGELS %DGELSD %DGELSS %DGELSY %DGEMLQ
   %DGEMLQT %DGEMQR %DGEMQRT %DGEQL2 %DGEQLF %DGEQP3 %DGEQR %DGEQR2 %DGEQR2P
   %DGEQRF %DGEQRFP %DGEQRT %DGEQRT2 %DGEQRT3 %DGERFS %DGERFSX %DGERQ2 %DGERQF
   %DGESC2 %DGESDD %DGESV %DGESVD %DGESVDQ %DGESVDX %DGESVJ %DGESVX %DGESVXX
   %DGETC2 %DGETF2 %DGETRF %DGETRF2 %DGETRI %DGETRS %DGETSLS %DGGBAK %DGGBAL
   %DGGES %DGGES3 %DGGESX %DGGEV %DGGEV3 %DGGEVX %DGGGLM %DGGHD3 %DGGHRD
   %DGGLSE %DGGQRF %DGGRQF %DGGSVD3 %DGGSVP3 %DGSVJ0 %DGSVJ1 %DGTCON %DGTRFS
   %DGTSV %DGTSVX %DGTTRF %DGTTRS %DGTTS2 %DHGEQZ %DHSEIN %DHSEQR %DISNAN
   %DLA_GBAMV %DLA_GBRCOND %DLA_GBRFSX_EXTENDED %DLA_GBRPVGRW %DLA_GEAMV
   %DLA_GERCOND %DLA_GERFSX_EXTENDED %DLA_GERPVGRW %DLA_LIN_BERR %DLA_PORCOND
   %DLA_PORFSX_EXTENDED %DLA_PORPVGRW %DLA_SYAMV %DLA_SYRCOND
   %DLA_SYRFSX_EXTENDED %DLA_SYRPVGRW %DLA_WWADDW %DLABAD %DLABRD %DLACN2
   %DLACON %DLACPY %DLADIV %DLAE2 %DLAEBZ %DLAED0 %DLAED1 %DLAED2 %DLAED3
   %DLAED4 %DLAED5 %DLAED6 %DLAED7 %DLAED8 %DLAED9 %DLAEDA %DLAEIN %DLAEV2
   %DLAEXC %DLAG2 %DLAG2S %DLAGS2 %DLAGTF %DLAGTM %DLAGTS %DLAGV2 %DLAHQR
   %DLAHR2 %DLAIC1 %DLAISNAN %DLALN2 %DLALS0 %DLALSA %DLALSD %DLAMRG %DLAMSWLQ
   %DLAMTSQR %DLANEG %DLANGB %DLANGE %DLANGT %DLANHS %DLANSB %DLANSF %DLANSP
   %DLANST %DLANSY %DLANTB %DLANTP %DLANTR %DLANV2 %DLAORHR_COL_GETRFNP
   %DLAORHR_COL_GETRFNP2 %DLAPLL %DLAPMR %DLAPMT %DLAPY2 %DLAPY3 %DLAQGB
   %DLAQGE %DLAQP2 %DLAQPS %DLAQR0 %DLAQR1 %DLAQR2 %DLAQR3 %DLAQR4 %DLAQR5
   %DLAQSB %DLAQSP %DLAQSY %DLAQTR %DLAR1V %DLAR2V %DLARF %DLARFB %DLARFG
   %DLARFGP %DLARFT %DLARFX %DLARFY %DLARGV %DLARNV %DLARRA %DLARRB %DLARRC
   %DLARRD %DLARRE %DLARRF %DLARRJ %DLARRK %DLARRR %DLARRV %DLARSCL2 %DLARTG
   %DLARTGP %DLARTGS %DLARTV %DLARUV %DLARZ %DLARZB %DLARZT %DLAS2 %DLASCL
   %DLASCL2 %DLASD0 %DLASD1 %DLASD2 %DLASD3 %DLASD4 %DLASD5 %DLASD6 %DLASD7
   %DLASD8 %DLASDA %DLASDQ %DLASDT %DLASET %DLASQ1 %DLASQ2 %DLASQ3 %DLASQ4
   %DLASQ5 %DLASQ6 %DLASR %DLASRT %DLASSQ %DLASV2 %DLASWLQ)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
